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Liebe Leserinnen, 
lieber Leser, 


Die Funkausstellung in Berlin steht ver der 
Tür. Vor einigen Jahren war dies noch ein 
Ereignis, über das kaum ein Computerfreak 
ein Wort verlor. 

In diesem Jahr ist dies ganz anders. Diese Aus- 
stellung ist in aller Munde. ... 

.. weil viele Hersteller von Microcomputern 
nicht die Hannovermesse, sondern die dies- 
jährige Funkausstellung nutzen wollen, um 
dem Verbraucher ihre neuen Geräte vorzu- 
stellen. 

Alles, was zum Anschluß an den Fernseher 
erhältlich ist: Kommunikationssysteme, Tele- 
spiele und somit auch Microcomputer, wer- 
den in großer Zahl in Berlin zu sehen sein. 
Wir freuen uns in diesen Tagen darauf, weil 
wir zum erstenmal als bekannte Zeitschrift 
mit den Herstellern über ihre weiteren Pläne 
sprechen können; weil wir - anders als bei 
früheren Ereignissen - von vielen Firmen ein- 
geladen wurden und wir daraus erkennen 
können, daß man unsere beiden Magazine so 
langsam ernst nimmt. 

Wir können daher sicher sein, in den nächsten 
Ausgaben von Homecomputer und CPU eine 
Menge von brandheißen Informationen für 
Sie parat zu haben. 

Bis dahin viel Spaß mit den Programmen 
dieser Ausgabe. 


Herzlichst 


ET 


Ihr Ralph Roeske 
Herausgeber und Chefredakteur 
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- LEICHT VERSTÄNDLICH 


Der DRAGON 32 ist ein lebender Beweis dafür, daß 
man kein Experte in „Computer-Chinesisch” sein 
muß, um ein Computer-Fachmann zu werden. Zu- 
sammen mit ihm erhalten Sie eines der am einfach- 
SCHRARTSCHENTNLORTEWEHENT N IGTE 
BERSISHEUNNEICS CHR EG CHART TE TE 
sprache der Welt) das je für einen Heimcomputer 
geschrieben wurde. 

Jeder Schritt, jede Erläuterung ist auch für Anfänger 
leicht verständlich. In wenigen Minuten können Sie 
DECHSCHIEEIES UOTE EEE ENT] 
gen Stunden werden Sie fasziniert sein von den 
Möglichkeiten, die sich Ihnen bieten. 

Im Kurs-Handbuch sind 60 Programme eingebaut, 
die Ihnen eine neue Welt erschließen - mit Hilfe des 
vielseitigen und leistungsstarken DRAGON 32. 


- SOFORT EINSATZBEREIT 


Sie müssen nicht gleich mit dem Programmieren 
anfangen. Es gibt ein ständig wachsende Anzahl 
fertiger Programme auf normalen Rekorder-Kasset- 
ten und Steckmodulen. Sobald Sie Ihre ersten Pro- 
TEUERSTE GHUENEESH TE ET GE 
malen Kassetten gespeichert werden. 

Dazu einfach Ihren Kassettenrecorder mit dem 
DRAGON 32 verbinden und mit jeweils einem einzi- 
PS BAHEUGHESICHATEH WAT W EEG RIE 
schen Möglichkeiten eines Familien-Computers! 


- BRINGT FARBE INS PROGRAMM 


Neun Farben bringen Leben auf den Bildschirm. 
DERENTSEESCHESEUTTEEUGTENNERNEL 


Microsoft Extended Colour Basic ermöglicht es, mit 
einfachen Befehlen Vorder-und Hintergrundfarben 
zu bestimmen, einen einzelnen Farbtupfer auf den 
Bildschirm zu bringen oder auch die ganze Fläche 
EIKTATTHEI SB 


- EIN GRAFIKER 


Eine besondere Stärke des DRAGON 32 sind seine 
einfach zu handhabenden, erstaunlichen Grafik-Fä- 
higkeiten: 8 Grafik-Bildschirmseiten, 5 verschiede- 
ne Auflösungsgrade von 512 Textstellen (16x32) 
bis zu 49152 Bildschirmpunkten (192x256). Mit 
einfachen Grafik-Befehlen können Sie Linien, 
Rechtecke, Quadrate, Bögen, Ellipsen oder Kreis 
zeichnen; oder Sie entwerfen eine Gestalt und än- 
dern dann deren Maßstab von 1/4 ihrer Größe auf 
15fache Vergrößerung! Die Grafik läßt sich zusätz- 
lich auch noch über vier rechtwinklige Positionen 
drehen. 


- IST MUSIKALISCH 


Volle 5 Oktaven stehen Ihnen für Musik und Sprach- 
synthese zur Verfügung. Melodien sind leicht zu 
programmieren und Klangeffekte beleben die Hand- 
lung in Programmen. 

Natürlich können Sie mit dem DRAGON 32 auch 
komponieren: Sie geben Noten, Vorzeichen, Tempi 
etc ein - der Computer spielt Ihnen das komponierte 
Lied vor. 


- FLEXIBEL UND LEICHT ZU BEDIENEN 


Die Programmiersprache Microsoft Extended Co- 
lour Basic bietet dem Programmierer unzählige Ge- 


staltungsmöglichkeiten. Ein komfortabler Zeilene- 
ditor gestattet zügiges Korrigieren von Program- 
men. 


- EIN ANPASSUNGSFÄHIGER COMPUTER 


Das Design des DRAGON 32 ist so ansprechend, 
daß er sich überall sehen lassen kann. Aufgrund 
seiner hervorragenden Fähigkeiten kann er auch in 
der Schule oder im Büro eingesetzt werden. Der 
DRAGON 32 stellt sicher, daß Sie mit der schnellebi- 
gen Welt der Microcomputer Schritt halten. 


- EIN QUALITÄTSERZEUGNIS 


Der DRAGON 32 besitzt eine professionelle Schreib- 
maschinentastatur, über die Sie die Programme, 
Spiele und Befehle an den Computer eingeben. Die 
LESEN UTAH RTNORICHBACHEINERSTN 
oft eine Schwachstelle - ist für starke Beanspru- 
chung ausgelegt. Die Funktionssicherheit jeder Ta- 
BODESENLKOH ESS RN TTTENWAURTSERTIR 
Mit den Zeilen-Editor bietet der DRAGON 32 die 
Möglichkeit, Programme besonders schnell und 
leicht zu schreiben. 


- VIELSEITIG UND AUSBAUFÄHIG 


Der DRAGON 32 besitzt serienmäßig Anschlüsse für 
NEIWATRE RAT EICH WNTDETGESESTICHER 

@ 2 Eingänge für Joysticks (Spielhebel), ideal für 
viele Spiele. 

@ Anschlußbuchse für handelsüblichen Kasset- 
tenrekorder zum Speichern Ihrer Programme auf 
normale Kassetten. Eingang für ROM-Steckmodule, 
die unmittelbar und schnell gelesen werden. 





Buchs 





Kassettenrekt 





© Centronics-Schnittstelle zum Anschließen eines 
Druckers, damit Sie Programme, Listen usw. druk- 
ken können. 

© Farbfernsehausgang und zusätzlicher Monitor- 
Ausgang, damit sie Fernsehgerät oder Monitor oder 
DES Ale rZETEURNIERENWGHUTHE 


- WÄCHST MIT IHREN ANSPRÜCHEN 


LESEN ETRTPEREILEWERTEIG LEN WILGS 
DRAGON 32 auf 64 K erweitern lassen. 

@ In Kürze kommt das DRAGON-Floppy-Disk-Sy- 
stem mit Steuermodul und bis zu zwei Disketten- 
[EINTLCHE 

®@ Noch 1983 erscheint ein Ausbausystem, das Ih- 
nen die Wahl folgender Erweiterungen gibt: 
EHE UCHESTIICHEELSCHERG ERSTE SG 
moduls) 

- RS 232-Schnittstelle für Netzwerke 

- Zusätzlicher 8-Bit-Microprozessor zur Nutzung 
einer Vielzahl von Programmen für Beruf und Be- 
trieb. 


- SEINE PROGRAMME (SOFTWARE) 


Viele der bekanntesten Computerspiele der Welt 
sind als fertige Programme für den DRAGON 32 er- 
hältlich. Von Schach über Kämpfe mit Geistern bis 
hin zu fesselnden Abenteuern. Die ganze Familie 
kann spielend die Computerwelt entdecken und mit 
sinnvollen Programmen, wie Budget, Adressen, 
persönliche Finanzen und anderen Programmen al- 
le Möglichkeiten moderner Computertechnologie 
ohne viel Schwierigkeiten nutzen. Die leicht ver- 
ständlich geschriebenen Anleitungen machen den 


Einstieg in die „Computerei” kinderleicht. 


- EIN EUROPÄISCHER COMPUTER 


Der DRAGON 32 wurde in Swansea, im Westen 
Großbritanniens von einem Fach-Team für Compu- 
terforschung von DRAGON Data Ltd. entwickelt. Die 


. ganze Erfahrung jahrzehntelanger Entwicklungs- 


und Produktionstätigkeit steht hinter dem DRAGON 
32 und stellt dadurch seine kontinuierliche Weiter- 
entwicklung sicher. 


TECHNISCHE EINZELHEITEN 


© Hochmoderner Microprozessor 6809E 

@ Serienmäßiger Anwenderspeicher (RAM) 32K, 
erweiterbar auf 64K. Noch 26K frei verfügbar bei 4 
Seiten hochauflösender Grafik. 

© Serienmäßig die erweiterte Basic-Version: „Mic- 
rosoft Extended Colour Basic” (Microsoft Basic ist 
die gebräuchlichste Basic-Version der Welt). 

DIE VORZÜGE: 

- hochentwickelte Grafikbefehle wie SET, LINE, 
DRAW, CIRCLE, PAINT 

- komfortable Ausgabe mit PRINT®, PRINT USING 
- umfassende Ton- und Geräuscherzeugung mit 
SOUND, PLAY 

ENG NEUBURG SIEHARTERESLERSEHCH ENGE 
ders ; 

- volle Edit-Funktion mit Insert, Delete, Change, 
usw. 

@ BILDSCHIRM-AUSGABE: 

- 9 Farben 

- 5 verschiedene Auflösungsgrade von 512 Text- 
stellen (16x32) bis 49152 Bildschirmpunkten 


(192x256) bei hoher Auflösung 

- Heimfernsehgerät (UHF) und/oder Farbmonitor 
© TASTATUR 

DESEUTGESSTLEISG TEILEN GT 
SCH BISSERL EICHUTEISRERTTHTT ENTE 

- weicher, angenehmer Anschlag 

- hoher Schreibkomfort 

 TSCHESL EIER ESCHE TTTEN 
ZUERUERT . E 
@ EINFACHE STECKANSCHLUSSE FÜR: 
- 2 Joysticks/Spielhebel 

- handelsüblichen Kassettenrekorder 
DER) 

- Drucker (Centronics-Parallel) 

- Steckmodule 

® 190-seitiges „Basic-Programmierhandbuch” 
und Anleitung im Preis enthalten. 


(einschl. 


Computerversand H. Schädel 


Albert-Schweitzer-Straße 1 
EERLELTANNEIWETHINEN 


AEETNVZZENK] 
Preisangaben incl. MWSt., Porto und Verpackung. 
Lieferung gegen Scheck oder per Nachnahme. 
Angebot freibleibend. 





Ihr DRAGON 32 kostet nur 798; DM 


Ausführliche Liste mit Informationen 
über Software-Module und- Kassetten 
liegt jeder Bestellung bei. 
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Der PC-4 ist ein Taschencomputer, der erweiterte Text- 
verarbeitungsmöglichkeit und große Programmierfähig- 
\ keit zu einem äußerst konkurrenzfähigen Preis bietet! 


\ Mitdem PC-4 (26-365) für DM 219,- bringt Tandy einen 
neuen, kompakten und äußerst preisgünstigen Ta- 
schencomputer auf den Markt. Da der PC-4 nur 16,5 x 
0,95 x 7 cm mißt, läßt er sich leicht in jede Aktentasche 
oder Handtasche mitführen. Die Schreibmaschinen 
ähnliche Tastatur ist mit 53 alphanumerischen Tasten - 
10 zu einem Block zusammengefaßte numerische Ta- 
sten - ausgestattet. Eine leicht lesbare 12-stellige LCD- 
Anzeige kann horizontal bis zu 62 Zeichen weit ver- 
schoben werden. Sie gibt außerdem 15 etwas kleinere 
Zustandsindikatoren durch einen Zusatzmodus wie- 
der. Trigonometrische Funktionen und ihre inversen 
Funktionen, aber auch Funktionen wie Bogenmaß, 
Logarithmen, Winkeltransformation usw. sind eine 
Selbstverständlichkeit für den PC-4. 

Dank der BASIC Programmiersprache kann man mit 
dem PC-4 leicht programmieren. Die BASIC Sprache 
umfaßt 23 Anweisungen plus 5 für die Steuerung der 
Cassetten-Schnittstelle - 15 normale Befehle - plus 
Funktionen und EDIT- und DEBUG-Anweisungen. 
Außerdem rechnet der PC-4 auf 10 Stellen genau. Er 
speichert bis zu 10 kurze Programme gleich oder aber 
kombiniert die Programm-Speicherbreite, um ein 
langes Programm speichern zu können. Die Benen- 
| nung der einzelnen Programme erfolgt über die Be- 
tätigung einer einzigen Taste. Für den Programm- 
| ablauf braucht man nur die für Kennung verwendete 
Taste drücken. 

Zusätzlich können die Programme alphanumerische 
Daten bis zu einer Länge von 30 Zeichen entgegen- 
nehmen. 

\ Der PC-4 wird mit 2 Lithium-Batterien betrieben und 
verfügt über eine automatische Stromabschaltung zum 
Sparen der Batterrieenergie. 

Ein 1kB RAM Speicher-Modul (26-3653 für DM 44,50) 
erweitert den Speicher des PC-4 um 544 Schritte auf 
maximal 1568 mögliche Schritte. Dank der Cassetten- 
schnittstelle (26-3651) für DM 109,-ist es dem Benutzer 
möglich, durch Anschluß eines Cassetten-Recorders 
Programme mit einer Geschwindigkeit von 300 Baud 





Komplettcomputer unter 2000,-DM 


Die Kombination Commodore 64 plus Diskettenlauf- 
werk ist um mehrere 100,- DM im Preis gesunken. 

| Für weniger als 2000,- DM, stellenweise für nur 1600,- 
DM, können Interessenten diese Kombination seit 
| einigen Tagen im Fachhandel erwerben. 





4 Homecomputer 
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zu speichern. Die leichte Cassetten-Schnittstelle (241 g) 
wird an der Rückseite des PC-4 angeschlossen und 
benötigt zwei "AA”-Alkali-Batterien. 

Tandy hat ausserdem den passenden Drucker (26-3652) 
für DM 229,- zu diesem Taschencomputer. Die Steu- 
erung der Druckerfunktionen besorgt der PC-4, der 
dann als druckender Taschenrechner verwendet wer- 
den werden kann. Der Thermo-Drucker -5x 7 Matrix - 
schreibt mit einer Leistung von 60 Zeilen/Minute bei 20 
Zeichen/Zeile. Der Drucker wird von wiederauflad- 
baren Nickelcadmium-Batterien versorgt. Ein Lade- 
gerät ist im Lieferumfang enthalten. Der PC-4, der 
Drucker und die Cassetten-Schnittstelle sind so ent- 
worfen, daß sie eine kompakte Einheit von nur 17,8x 3,6 
x 17,2 cm bilden. Eine weichgepolsterte Vinyl-Tasche 
mit Reißverschluß, die allerdings nur als Zubehör 
erhältlich ist, schützt das gesamte System während des 
Transportes. 

Der PC-4 verfügt über Bedienungsanleitung und Pro- 
grammierhandbuch in dem Schritt für Schritt die 
Anweisungen für die Handhabung und Programmier- 
ung Ihres Computers für Statistiken, Spiele, Geschäfts- 
und Finanzanwendungen beschrieben sind. 
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Ein Computer als Hauptgewinn 


"Computer zu programmieren, das ist wie eine Sucht: 
Du kommst nicht mehr davon los” - diese Worte 
stammen nicht etwa von einem alten "EDV-Hasen, 
sondern aus der Feder der 16-jährigen Ursula Keiter 
(Wilhelmshaven). In einem Aufsatzwettbewerb zum 
Thema "Menschen und Computer” gewann die Schü- 
lerin dafür den ersten Preis. Während einer kleinen 
Feierstunde mit Bundesminister Dr. Heinz Riesen- 
huber (Foto links) überreichte Commodore-Pressere- 
ferent Enno Remmers (rechts) der glücklichen Gewin- 
nerin der Welt meistverkauften Microcomputer, den 
Commodore VC 2% mit viel Zubehör. 


BIG - BUFFER ... 


.... ein preiswerter Hardware-Spooler für Parallel-Drucker 
8 KByte bis 120 KByte Kapazität 





BIG-BUFFER: läßt Computer und Drucker gleich- 
zeitig arbeiten und erhöht damit die Arbeitsgeschwin- 
digkeit von Microcomputern. Der Computer wird nicht 
länger gezwungen, seine Arbeitsgeschwindigkeit dem 
langsameren Drucker anzupassen, sondern beide kön- 
nen nun mit ihrer maximalen Geschwindigkeit ar- 
beiten. 

Ein eingebauter RESET-Taster erlaubt, den Buffer- 
inhalt jederzeit zu löschen, so daß unbeabsichtigt über- 
tragene lange Texte abgebrochen werden können. 
Durch einen zusätzlich wählbaren MONITOR-Mode 
wird die Programmentwicklung vereinfacht, da BIG- 
BUFFER in dieser Betriebsart alle Codes in Hex-Dar- 
stellung ausdruckt. 

Technische Daten: 

Eingang: Centronics kompatibel 

Ausgang: Centronics kompatibel 

Big-BUFFER kann entweder vom Drucker (SV von Pin 
18 der Centronics-Schnittstelle) oder über ein separates 
Netzteil versorgt werden. 

Die Preise bewegen sich je nach Version zwischen 
475,-DM und 1048,-DM. 

Info: R. Wiesemann, Postfach 201605, 5600 





SPECTRUNM SOFTWARE 


JOTSOFT - NEU Im DEUTSCHLAND - JOTSOFT = NEU IN DEUTSCH.AND — JOTSOFT = 























BESTELLEN SIE NOCH MEUTE UNSEREN KATALOG MIT PETAILLIERTEN PROGRANMBESCHREI- 
BUNGEN SOWIE SOFT- UND MARDWARE-TIPS FUER DEN SINCLAIR SPECTRUN GEGEN EINE 
SCHUTZGEBUEHR VON 3. -- Dn. 

DIESEN MONAT Zum BEISPIEL: ZUSATZTASTATUREN UND JOYSTICKS SELBSTGENACHT. 


DIE LIEFERUNG DURCH VERSAND ERFOLGT AUSSCHLIESSLICH PER NACHNAHME. DIE AUS- 
IEFERUNG ERFOLGT AM GLEICHEN TAG DES BESTELLEINGANGES, WENN DIE GEUUENSCHTE 
CASSETTE AUF LAGER IST. ANSONSTEN GEBEN WIR NACHRICHT LEBER DEN VORAUSSICHT- 


LICHEN LIEFERTERNIN. 


VEBRIGENS: „IR LIEFERN ZU JEDER CASSETTE EINE DEUTSCHE ANLEITUNGE 





SOFORT 


LIEFERBAR: 


HERSTELLER 





SPECTRUN ASSENBLER 
SFECIKUN CHESS 
SPECTRUM FoRTn 
an.rren 
MASTERFILE 
NASTERFILE-16 
SIPEROESS 11 
Test narcm 
1m 
CENTIrEDE 
BICTArOR 

SP OF EUIL 
2xED (romL.Kır) 
MERTMROL 
KIOSTFLITE 


CONVERSION TAPE 
SUPERDEFLEX 
BRLAXKT CowLIer 
FENETRATOR 

ME ronBı Tr 

CoSsnIc RAIDErs 
mo martım 

ranic 

SPACE TORMIES 
OMMICALC 

BATTLE OF mRıTam 
20 TImmEL 

"nor In 0 
SPECHRUN EDITOR-ASSENBLER 
SPECTRUN non! TOR 
TRADER 

MIR INER 
ROAORUNNER 
SPECTRAPEDE 

ost nun 

m coner 

MMzE NERTN RACE 
THE BLACK MOLE 
NSIRO BLASTER 
FRENZY 

NETEOR Storm 
MINED-our 

SPACE INTRUDERS 
TInE-OnTE 

EUEREST AScEnT 
SUPER ser 
TRAHSSTLURKIAN TOWER 
CATERFILLN 
FREMET 

NORSTER MUNCHER 
ROM FROG 

JET PrcK 

rssst 


MOBEX- THE Gene PEOPLE 
MEBEX-TNE GAME PEOPLE 
ARTIC 

metic 

ARTIC 

ARTIC 

ARTIc 

MRTIc 

RI. 

CAMPaELL STSTENS 
CnPBELL SYSTEng 
CANPBELL STSTEnS 

er Sor TuARE 

COMPUTER RENTALS 

OK? TRONICS 

Du TROnNIcS 

De TRONICS 

DR’ TRDNICS 

DK’ TRONICS 

HEUSON CONSULTANTS 
NEUSON CONSULTANTS 
MELSON CONSIA. TANTS 
MEUSON CONSULTANTS 
IneGInE SOrTunRE 
InAOInE SOF TunRE 
INMGINE SOFTWARE 
KENPSTOM 

nEnestom 

LLANASORT 

nARIECH OAnES 
MELBOURNE MOUSE PUBLISHER 
MELROURNE MOUSE PUBLISHER 
NIERD-GEN 

MICRD-GEM 

NIERD--GEN 

MICRD-GEN 

NICROSFHERE 

NICRDOME SINULATLONS 
NEU GENERATION SOFTUARE 
ME GENERATION SOFTUARE 
FICTURESAUE 

PICTURESAUE 

PIXEL 

PROTER 

ROTER 

PROTER 

r.5.5 

P.55 

P.5.8 

Quest 

WUICKSILUM 

QuicKksiLun 

wuicksiLun 

WWICKSILUM 

auicksiLun 

WUICKSILUR 

RICHARD SHEPHERD SOFTURRE 
RICHARD SHEPHERD SOFTURRE 
RICHARD SHEPHERD SOFTUNRE 
SPECTRUM GANES 
SPECTRUN GAnES 
SPECTKUN GAMES 
SPECTRUN üAnES 

ULTINATE FLAT THE mE 
ULFINATE PLar TME GnnE 


SRRNEHHRREREUHERHERHHSHBBREHSHEN: 


nu. 
PaRRaT 





VERSANDANSCHRIFT: 


LADENVERKAUF : 





FA. JOYSOFT 


BAHNSTRASSE 58 


4838 RATINGEN 
TEL: 82182725498 


FA... ABTSOFT 


D’DORFER STRASSE 45 


4338 MUEHLHEIN/R 
TEL: 82287489442 





Spielautomat r19944 


Die erste Scheibe kann in dem Zeitraum in dem die 
Schrift ”Start” erscheint, durch Betätigungder Taste ”S”, 
einmal nachgestartet werden. Wird im Ablauf des 
Spieles ein Geldbetrag oder Sonderspiel gewonnen, so 
kann man diesen Gewinn, durch Betätigung der Taste 


stand 6 und 11 können, bei Kronensymbol im Mittel- 
fenster, weitere Sonderspiele gewonnen werden. Der 
Münzspeicher zeigt auch negative Beträge an, so daß 
man zu jedem Zeitpunkt des Spieles erkennen kann, 
wieviel man insgesamt gewonnen oder verloren hat. 


”R” (doppelt oder nichts) riskieren. Beim Sonderspiel- 


128 
118 
120 
139 
140 
150 
160 
178 
180 
152 
20a 
zıa 


228 
230 
240 
258 
268 
era 
280 
294 
398 
318 
320 


REM SPIELAUTOMAT 

REM FARBEN 

CALL COLORC9,12,6> 

REM ZEICHENDEFINITION 

REM KROHE 

CALL CHAR“ 96, "BRALBSCEERTErASA3" > 

CALL CHAR“ 97. "BOBOLSTEFFFFFFFF" > 

CALL CHAR« 98, "ORLETOSBEBEALALA" > 

CALL CHAR 99. "Orarazasasas" > 

CALL CHAR“ 1ER. "FFFFFFFFFFFF" > 

CALL CHART 181. "ERERCOCOCOCE" > 

REM ERSTELLUNG “OH DATENFELDERN 
FLER WERTZUMEISUHG 

bDIM WERL 123 

FOR Q=1 TO 12 

READ WER“) 

HEAT Q 

DATA 77.8,4.24.6.12.6:9,4: 20.6; 16 

DIM WERT! 2,125 

FOR A=1 TO 2 

FOR B=1 TOD 12 

RERD WERTTR:E> 

NEAT BE 

HE#T A 

DATA 4,5.38,12,8,4,9.12,6,4.6, 12.16.24, 

38.77.15.24,.20.77,16,24,39.77 

MUENZSFEICHER=8 

REM EILDAUFEAL 

CALL CLEAR 

CALL CHARK 12a. "FFFFFFFFFFFFFFFF" 5 

CALL COLORK 127,75 

CALL HCHARR 3,4, 120,79 

CALL HCHARX 3.22,120.79 

CALL YCHARS 441204 

CALL CHAR 4,19, 120.45 

CALL YCHARK AERO 

CALL YCHARK 2,28, 120,53 

CALL HEHARE7,5:120,55 

CALL HCHAFK 7,13. 120,79 

CALL HEHARS 7.23: 120,53 

CALL YCHARK E13, 120,35 

CALL VCHARCS.19,120,39 

CALL HCHARR 11.4, 120,79 

CALL HEHARC 11:13, 120,75 

CALL HEHARE 11,22, 120,75 

CALL YCHRRCIE:4, 120,35 

SALL YCHARS 12,10, 120,35 

CALL YCHARS1E.22,120,39 

CALL VCHARL12:28,120,35 

EALL HEHARK ISA: 120 7 

EALL HCHARE 15.22, 120,79 

SALL COLORE 11,4,45 


1 CALL CHARE 117. "FFFFFFFFFFFFFFFF" 


CALL HCHAR1E:6,117,35 
CALL HEHAR1E.24,117,39 
CALL HCHARE 8,15, 117,39 


YAR=E 

RANLÜMIZE 

YAR=VAR+1 

DREH1=IHTT L2#EHD +1 

#1=WERTC 1. DREHL> 

H2=WERT( 2, DREHL > 

2=5 ‚ 

S=6 

IF #1=4 THEN 830 

IF #1=6 THEN 858 

IF #1=8 THEN 878 

IF #1=12 THEN 83% 
<=13 

S=6 

CALL HCHARGZ-1,3,115,35 
IF #2=16 THEN 10 

IF #2=24 THEN 930 

IF #2=30 THEN 359 

IF K2=77 THEN 979 
GOSUB 1728 

GOTO 7650 

GOSUB 1759 

GOTO red 

GosuB 1800 

GOTO ren 

GOSUB 1842 

GOTO 762 

GOSUB 1859 

GOTD 980 

GOSUB 1929 

GOTI 958 

GOSUB 19650 

GOTO 980 

GOSUE ZUaB 

REM HACHSTART WON SCHEIBEI 
IF YWAR»1 THEN 1100 
LCALL SOUNDE 59.442,15 
CALL HCHAR 185,839 
CALL HCHARR 18,5,984 > 
CALL HCHARK 187,655 
ECALL HCHART18,9,929 
CALL HCHARG 18.9,845 
FOR START=1 TO 58 
CALL KEYKA.KEN.STATUSN 
IF KE'Y=33 THEN 6580 
NE#T START 

CALL HCHARS 18.5.1155 
RAHNDOMITZE 
DREHZ=1INTZ 1LZ#REHD D+1 
#3=WHERTX 1. DREHEZ > 
A4=WERT( 2, DREHE > 
2=5 

s=24 

IF K3=4 THEN 1270 
IF #3=6 THEM 1299 
IF #3=8 THEM 1318 





IF #3=12 THEN 


2=13 


5 THEH 

"#4=24 THEN 

#d4=30 THEHN 

#4=77° THEH 
SOSUE 1722 
GATO 1212 
GOSUE 1750 
GOTO 121 
GOSLUE LEBER 
GOTC 1218 
GASUE 1849 
GOTG 12120 
GOSUE 1882 
GATO 1420 
GOSUE 1920 
GOTO 1420 
GOSUB LSA 
GOTO 1420 
GOSUE Zaad 
REM DREHUNG MITTE 
RAHDEOMIZE 
DREH3=INTE L2#RND >+1 
AS5=NER“ DREH3 > 
2=3 


»5=4 THEN 15650 
#5=6 THEN 1588 
"5=8 THEH 1608 
#5=12 THEN 1820 
"3=15 THEH 1648 
„s=24 THEH 16658 
#5=32 THEN 1680 
„s=77 THEH 17a 

GOSUB 1r20 

ANTO ZOO 

GOSUE 17650 

GOTD 2070 

GOSUE 1208 

GOTO Zr 

GOSLUE 1940 

GOTO Zar@ 

GNSUB 1550 

GOTO Zara 

GOSUE 1922 

GOTD 2870 


CALL HCHART Z,S+1.54 5 
CALL HCHARSZ.S+2,48 5 
RETURH 

CALL HCHARGZ,S. 50 
CALL HCHARCZ. 541.925 
CALL HCHARC EZ. SR. 48 
RETURH 

CALL HEHARE 25,515 
CALL HECHARE 2.541,48) 
CALL HEHRREZ. SHE. 4) 
RETURH 

CALL VCHARKZ-1:3:969 
EALL VYCHRAR Z-1,5+1,97 5 
CALL VCHARE 2-1,5+2,98) 
CALL VCHARE 2.8, 9R5 
CALL YEHARE zZ, SH LO 
LALL YCHAREZ,SH2, 1A I 
RETURH 

FOR T=1 TO 306 

NEXT T 

REM SCORING 

IF SCH>B THEN 

IF #2=#4 THEH 

IF #1=#3 THEH 

IF #5=77 THEH 
YALUE=E 

GOTO 2378 

IF #1=#45 THEH 

IF #5=77 THEH 
YALLE=D 

GOTO 23ra 

IF #2=77 THEH 

IF #2=#5 THEN 

IF #5=77 THEN 
YALLE=E 

GOTO 2128 
YALUE=#1-1R 

GOTO 2430 

YALUE=E 32 

GoTn 2430 
YALLESK2FLE 

GOTO 2430 

IF #5=77 THEH 3159 
IF #5<>12 THEN 23580 
YALUE=1.2 

GOTO 2430 

YALUE=E 

CALL CLEAR 


GOSUE 1960 MUENZSPEICER=MUENZSPEICER+YALLE-AU SE 
GOTO Zara FEINT "SONDERSPIELE="SOH 

GOSUE ZaRe PRINT "MUENZSPEICHER=" : MUENZSPEIGER 
GOTO Zara FOR T=1 TO 500 

CALL HEHARKE,S.48) NEXT T 

CALL HEHARC 2.841,52 GOTO 359 

EALL HEHARKZSHZ, HE) REM FISIEO 

RETUFRH IF AHZAHL>48 THEN 2512 

CALL HEHARK E54 FOR U=1 TO 50 

GALL HEHARKZ,S+1,54) CALL KEYED,KEY.STATUSS 


CALL HCHARE ZS+2,48) 
RETUFRH 

EALL HCHARE 2,548 
GALL HEHAREZ,8+1,565 
GALL HEHARCZ,S+2, 48) 
RETURH 

FALL HEHARME2.8,49) 
SALL HCHAREZ.5+1,50) 
ERILL HCHARKZ.S+2,48) 
RETURH 

CALL HEHARKE,S,49) 


CALL SOUNDE 102,660, 17 
IF KEY=82 THEN 25858 
NEHT U 

IF ANZAHL=2E THEN 2548 


FRINT "KEIH RISIKO", "GEMIHNM=" 


; ANZAHL; "SONBERSFIELE" 
GOSUB SZRA 
GOTOD 2558 


PRINT "KEIN RISIKO" "GEWINN" YALUE 


FOR T=1 TO 598 
HEAT T 





GOTD 258 FEIHT ANZAHL 
RANDOMIZE HEAT 4 

RISK=2#RND GoTO 3338 

IF RISK@1 THEH 26890 A=118 

YALLE=E FOR ZAEHL=1 TO ANZAHL 
AHZFIHL=E SOH=SOH+L 

FEIHT "WERLOREH" FRIHT "SONDERSFIELZAEHLER=" 5; SOM 
LALL SOUNDE 598. 440.15 CALL SOUND SAAL 
CALL SOUNDE -599.243,:15 A=A+i8 

CALL SOUND ZE00.,2290,1,330.1,532,1> HEAT ZREHL 

GOTO 23650 AHZAHL=R 

IF YALUEX?.30 THEN 2728 RETURH 

YALLE=B. GE IF AHZAHL<SE THEN 2438 
GOSUE 2060 GOSUE 3290 

GOTU 2430 GOTO 2658 

IF YALUER 0.40 THEH TONE=INT“ 110% SERHD+1 25 
YALLESE. SEI ZUFFLL=19@#RND+1 

GOSUE 350 ZUFALL>F7 THEN 3520 
GOTD 2430 ZUFALL>93 THEN 3548 
IF YALUEX >GER THEH ZUFALL>S7 THEN 3568 
YALLUE=1.20 ZUFALL>32 THEN 3588 
GOSUE FaS2 ZUFALL>TE THEN FEAR 
GOTO 2430 ZUFALL>53 THEN 36280 
IF YALUE<>B.SA THEN IF ZUFALL>35 THEN 3649 
YALlE=1.80 : ANZAHL=3 

GOSUE 30650 RETURN 

GOTO 2438 AHZAHL=122 

IF VALUEA>1.20 THEH RETURN 

VALLE=2. 4EI ANZAHL=59 

GOSUE DOSE 532 RETURN 

GÄTD 2430 AHZAHL=48 

IF YALUER>1.69 THEH RETURH 

NALUE=S. 22 AHZAHL=2O 

GOSUE SEBE RETUFRH 

GOTI 2430 AHNZAHL=1@ 

IF YALLEL>Z.4R THEH RETUFH 

AHZAHL=S AHZAHL=& 

YALLUE=SE RETURH 

GOSUE 2050 AHZAHL=S 

GOTO 2430 RETURN 

IF YALUEX>3 THEN 3028 REM SONDERSFIELWERTUNG 
AHZAHL=5 SON=& THEH 3350 
YALLE=EN SOH=11 THEN 3858 
SOSE BASE #5=4 THEN 3758 

GOTT 2430 #S=6 THEN 3750 
AHZAHL=AHZÄHLEE «3=77 THEN 3759 
GOSUB 38658 

GOTO 2430 SON=SOH-1 

REM SOUND BEI GEWINN GOTT 2360 

CALL SOUNDE 1000, 220.05 YALUE=3. 22 

CALL SOUMDR -1099,277,05 CALL SOUNDE -500, 220.19 
CALL SOUNDE 1000, 330,05 CALL SOUNDE -599,277,:19 
EALL SOUNGE -749,442,9,659,90,1109.05 CALL SOUNDE -Sa2, 3230,19 
IF “ALUE=@ THEN 3130 LALL SOUNDE -749.4409,0,6859,0.1109,95 
PRIHT "GEWINH=" VALUE SOH=SON-1 

GOTO 3142 3 IF SOH=1 THEN 39339 
PRIHT "GEWINN" S ANZAHL "SONDERSPIELE" IF SOH=@ THEN 333@ ELSE 3840 
RETURH GOTO 2438 

REM SONDERSFIELAUSLOSUNG GOTO 2368 

YALLE=E IF #5<>77 THEN 36990 
RAHNLOMIZE YALUE=3,. RE 

ERLL CLEAR CALL SOLHNDE 509, 220.15 
FOR T=1 TO 25 CALL SOUNDE -5008,277:19 
GOSUE 23418 CALL SOUNDE -599, 330.15 
LALL SOUNDE Sa. TONE.@> CALL SOUNDE -740,449.0,659,1:1199.15 
PRIMT ANZAHL SON=SON-1 

HE#T T CALL SOUNDE SAO.-5,1> 
CALL SOUHNDE SA, 3:05 GOTO 3159 

FOR W=1 TO 24 
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+E/n)BVI (9 He)LV AVIASIA t3((SXANH)INI)N=N NAHL L=(dEaNY)INI 
dI 88 Zr+tj=L S8(n+lL+V)mHHS)NOILOM TIVO SS(a°VL)ASR TIVO 
I+i=L S8(PALHS)NUALLVd TIVO 23(gHHS)NOLLOM TIVO 
(#'9-'s'gre'g'daz's'ddz'ggı-)annos TIvo 

ı 

NINAAILO MAIFOSTIVE i 

ı 


*66)ANNOS TIVO 


gıgı 
gagı 


B6sı 
gesı 
gLsı 
Bgst 
Bssı 
Brsı 


gesı 
Bzsı 
IXT 
Pası 
Brı 
gerı 
gLrı 


garı 
‚gsrı 
grrı 
ger. 


Berı 
gıri 
‚garı 
B6EL 


Bacı 
BLEeL 
Bye 
FAT 


Brei 


geer 
7431 
ge 
BBEL 
B6zı 
gezı 











SINCLAIR ZX-SPECTRUM 


Ganeymede 


Man steuert das Männchen (Stern) mit den Tasten 
N,S,0,W. 

N gleich Norden, S gleich Süden, O gleich Osten, W gleich 
Westen. 

Wenn man Taste U für (Unterbrechung) drückt, fragt der 
Computer, ob das Spiel abgespeichert werden soll, damit 
man später das Spiel weiterspielen kann. 

| Ein kleiner Anreiz: Bei diesem Spiel ist es uns schon gelun- 
| gen, über 40 Kristalle zu sammeln. 


LEERER RAUM. 


NORDEN: . 
WESTEN: -\ 


ME, 8, 8, Bereronecnene 








* -SPIELER 
- „LEER 


R_ -seRm 
STRAHLEN 


= 
LANDBBARFE RELER RSSERIHE, 











% 
YMEDE III. BY 3% 
RALF #** 
LEWERKEN Er 
REN ++ (C) 7.7.83 *3 
++ B FE FeeRErrEr + 





LET LL=20@ 
CRYSTALS=D 
INIT=192 
DELAY=39888 
RERD=4000 
4@ LET MAP=120G 
Ri4aB} 


75 PRINT "WOLLEN SIE EINE ERKL 
BERUNGT TUN)" 











IF INKEY$="43" THEN GOTO Sea 
a 
GOToO 76 
FAST 
GOSUB INIT 
FAST 
MIT 
=7 SU +55 
ı30 soro iso i 
ı52@ FOR_I=1 TO da 
159 NEXT I 
372 CLS5 
i92 REM INITIALIZE 
ıa9& =, 
195 
ze THEN LET 
RII!= 
z2®B IF S0=1Nr {I/Z8}=I THEN LET 
RII}=SCODE WB 
24a IF I=301 OR I-321 OR I=341 
OR I=961 OR_I=5981I OR I=sZI ORT 
i_OR_I=51 OR I=31 OR I=181 CR I: 
i213 OR I=141 OR I=161 OR 
R I=281 OR I=221 OR I=241 OR_I= 2 
= SR I=231 THEN LET RtI}=CObE 
En IF AtI}=8 THEN LET A{LIN=CCD 


22a NEXT_I 
=@1 sah NET=S0S 


=1@ FOR I=1 TO 25 


328 LET C=INT (RND+40@) +1 

33@ IF Rici=C0ODBE "“.“ THEN LET A 
(C} =CODE "C" 

355 LET C=INT_ (RND#+4@@) +1 

358 IF RiCIı<>COoDE "MM" THEN LET 
AiC)=CODE 'B" 

365 LET C=INT_(RhND#+42B! +1 

a72 IF AtC}e>tOosE "Rt THES LET 
RAiCI=CODE_"P" 

375 LET C=INT_ (RNDxzaga) +1 

382. IF Rilız:>cobeE "EEE THERH LET 


RiCI=CODE "DM" 

4a@ NEXT I 

4+i@2 FOR I=i TO Sa 

i22 LET C=INT_(RND#408) +1 

4390 IF AtlC}<>COobE "Bi" THEN LET 
RiCI=ESBbE 

448 NEXT I 

252 RETURN 

482 CLS 

47@ PRINT "SIE HABEN GANEYMEDE 
NUN ERREICHT UND SIND IN EINER H 
DEHLE. 2.22." 

475 PRINT 


476 LET OUT=INT {RND#48@) +1 
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4+77_IF RtOUT} <S>CODE "." THEN GO 
TO_476 
478 LET OUU=INT {RND#49@} +1 
4+79_IF AlOUUI <>CODE "“.” THEN CO 
TO_478 
4939 PRINT "SIE IN RAUM..."; 
Ssi@ FGR I=2 TO 158 
SIF LET E=SINT_ (RNDz40@7 +1 ” 
535_ IF _AtE) =SCODE_ "BR OR Rie)=co 
DE _ "#" THEN GGOTO 535 
527 LET ORG=R(E) 
SIS LET RtE}=CODbE 
539 PRINT E 
548 BRINT 
5580 PRINT "HIER IST EINE KARTE 
MIT ALLEN RAEUMEN. 
555 FOR_I=1 TO 5® 
NEXT I 
GOSUB DELAY 
SIIUB_MAF 
GOTO RERD 


ug. 


22))=I THEN P 


JERKLRERUNG" 
-SPIELER“ 


; " STRAHLEN” 
u 
RAUM" 


19,24; "U 
21,7; "LANDKARTE Fi 


72 
58 
SR 
a 
zi 
ZZ 
33 
ıi@ 
20 


se 
ı 
E 
r=3 
= 
rJ 
z 
= 
“= 


IN RAUM NUMMER ";E 


PRINT Wr COMPUTER REPORT 
(34 

For I=1 Ta =2 

PRINT "8"; 

NEXT I 
FOR I=1 TO_12 
PEINT _"#&": TAB 
NEXT I 

FOR I=1 TO 352 
PRINT _"#"; 
NEXT I 

SLOW 

PRINT AT 6. Ss; 
IF 


Aee 


Eu 2 


THEN PRINT 
THEN GOSUB 
IF ORG=CODE THEN GOSUB 
ORG=CODE "P" THEN GOSUE 
SRSSTILE "EB THEM sooUR 
REM WORK OUT NEXT ROOMS 


PAR PRPAAAnen NG 
KÜPTRRERRRRRER 
SSOEMONAMNALUM 
ASFEMSSUSBAUSS 





NORTH=E-2® 
WEST=E-1 
SCUTH=E+28 
AT "NORDEN: 
TSUEBHEN: 
"OSTEN 
;NWESTEN: 


"N, 5, 0, 


";CHR 
";CHR 
CH 
"SCH 


ar vw. 
NTERBRECHEN" 

LET @1=E 

LET A(E)=ORG 

IF INKEY$="" THEN GOTOQ 4263 
IF INKEY$="L" THEN GOTO 8080 


LET M$=INKEY= 
i E CHRS AiWESTI < 
wre THEN 


HAEE ATSDOUTTM) 


4278 IF MS$=' { 
SUTHI <>" THE 


Si 
HM LET E=E+22 
4275 Ir M&£t-'0" znn CHBE Ssteasrtı £ 
>"W" AND CHR& A(ERAST) <>" THEN 
LET E=E+1 i 
4258 IF M$="N" AND _CHRS A(NORTH> 
<>" AND CHR$ R{NORTHI <>" THE 
N LET E=E-238 
4255 LET ORG=R(E) 
42935 LET A(E}=CODE _"#" 
4237? IF RND>.89 THEN GOSUB MAP 
“255 Ir E=0UT OR E=0ULU THEN GOTO 
4298 GOTO RERD 
4588 LET WO=SINT (RND#1@0! +1 
4585 FRINT WO;“ CRYSTALS..." 
4518 LET CRYSTALS=CRYSTALS+UO 
4528 PRINT ST 16,93; "SIE _HRBEH Nu 
N ";CRYSTALS;" KRISTALLE." 
4538 PRINT AT 17.3; 38-CRYSTALU; ' 
MUESSEN SIE NOCH SAMMELN.” 
31 LET ORG=CODE_" 
LET A1E) =CODE 
RETURN 
PRINT "BEAMSTRAHLEN...." 
LET G1=E 
LET A (E) =ORG 
LET E=INT (RNDz4a@) +1 
IF_RiE)I =SCODE "FF OR AtEI=CO 
'&" THEN GOTO 4728 
4738 PRINT AT_14.5; "SIE WURDEN Z 
U_RAUN ";E;" TRANSESATIERT" 
LET ORB=RGEN 
LET A {EI =CODE .. 


"SIE SIND IN EINE FRAL 
GEFALLEN..." 


tr TO 
Yazız 


37,3&+ 

18,14+ 

19,14+ 

2R,i4+ 
LET G=1+ (AND=22 - (ANDs2 


LET K=InT (RNDz1@) +1 
LET ORG=CODE ".' 
FRINT "SIE HABEN EINEN RAUM 





MIT EINEM 


5248 FRINT 

S958 IF K<?7 THEN PRINT 
IE GESEHEN....." 

5255 PRINT 

S@658 IF K=1 THEN_PRINT "UND ES I 
S5T SIE AUF....(SCHLECK}I" 

S8@78 IF K=1 THEN STOP 

S@89 IF K<7 THEN PAUSE 288 

sıaa IF K<4 THEN_PRINT "ES LEST 
SICH SCHLAFEN.ALSO HAT ES SIE D 
GOCH NICHT GESEHEN." 

5118 IF K<4 THEN PAUSE _ 228 

5128 IF_K<4 THEN GOTO RERD 

51598 LET K=INT_IRND#6) +1 

5148 IF K=5 THEN LET A$="ES GIET 


IHNEN..." 
515@ IF K<>5 THEN LET A$="NIMMT 


SICH'" 
5158 LET FF=INT {iRND&(CRYSTALS-2 


MONSTER BETRETEN... >: 


"ES HART SS 


INT 
IF K<7 THEN PRINT "ES ";A$; 
;”" KRISTALLE" 
IF RSt2I="6G” TH 


EN LET _CRYSTALS=CRYSTALS-FF 
szele PRINT 

5228 IF K<7?7_THEN PRINT _ "SIE HABE 
N JETZT ";CRYSTALS;" KRISTALLE" 
5231 IF K<7 THEN PAUSE an 

5248 IF_K<? THEN_GOTO_RERD 

5258 PRINT "SIE SIND GEFLVUECHTEr 
S26Q@ FHUSE_ 200 

5278 GCTO RERB 


seaza CLS 

5885 PRINT "SIE HABEN JETZT GRNE 
YMEDE VERLASSEN. .„.." 

sei@ FRINT 

5222 PRINT "MIT “";SERTSTAES;" 
STALLEN...' 

5925 PRINT 

8930 IF CRYSTALS<S@® THEN PRINT " 
WAS ABER NICHT GENUG IST..." 
5248 PRINT 

5259 IF CRYSTALS<S®@ THEN PRINT 
SIE WERDEN AUF _GANEYMEDE STERBEN 


KRI 


ZURUECK ZU Kommen nn 


52228 FRUSE 208 
S298 CL5 
6128 PRINT "5IE SIHMBb MU SIERER 
AUF DER ERDEHRNGEKOMMEN UND ALLE 
KRISTALLE SIND INTAKT." 


“SIE HABEN _";CRYSTALS 
M BEZAHLT BEKOMMEN." 
FAUZE 392 
LET LL=-58 
SUOTa MAP 
CLS5 
PRINT "WUENSCHEN SIE DA5S_HO 
EHLENSYSTEN ABZUSPEICHERN ,UM DAS 
SPIEL SPAETER AN DIESER ST 
WEITER_ZU SPIELEN USE?" 
' THEN GOTDO_ 89012 
"N" THEN GOTO Sc2 


IF INKEY$="" THEN G0TO 8259 

SAVE "SANEYMEDE 

PRIMT "DRUECKEN SIETTEM"ZUR 
ce 


"UNTER- ERECHUNG ODER 
VEITER- SPIELEN." 
saß? IF INKEY$="" THEN GOTO 8857 
938693 IF_INKEY$="E" THEN NEW 
Se7a COTOQ 9267 
Sag GOTC READ 
22092 CLS 
sula FRINT AT @, S; "EANEYMEDBE III 





3228 PRINT "SIE BEFINDEN SICH IN 
EINEM RAUM-SCHIFF .WELCHES SIE Z 
um PLANET GANEYHEDE BRINGT." 
s@ PRINT "IHRE AUrFSASE IST ES, 
VIELE KRISTALLE ZU SAMMELN 
„WIE SIE KOENNEN,UND DIE ZUR 
ERDE ZU BRINGEN.DOCH „DEBERAL 
L LAUERT DERTOD RUF SIE." 


Sp4@ FRINT 
9858 PRINT "DER _PLANET HAT_EIN U 
HTER- IRDISCHES HOHLENSYST 
EM.IN BEM, DIE KRISTALLE VERSTE 
cKT SIND. 
Ertur _ _ 
PRIHT "DRUECKEN SIE EINE TR 


IF INKEYE="" THEN G0TO 9973 
I "DIE GEFAHREN :" 


-VERSCHLOSSENER 
3} -EIN MONSTER 
m -BERMSTRAHLEN 


= -EINME FALLGRUBE 
go I= 25 22 


& -VERSCHLUSSENER 


SIE KOENNEN NICHT_IN 
SOLCHEN RAUM HINEIN 
VEBERSFPRINGEN.SIE MU 
ESSEN UM IHN HERUMGEHEN." 
z PRINT "DRUECKEN SIE EINE TR 


TUT THEN GOTO 9113 
"2.83 -EIM MONSTER 


PRINT 

WENN SIE _MIT_ EINEM M 

ZUSAMMESTOSSEN,GIBT 

MOEGLICHKEITEN. 

A -DRAS MONSTER SCHLA 
-DAS MONSTER GIBT 
-DAS MONSTER NIMMT 
-DAS MONSTER FRISS 


iur 
PRINT 


"DRUECKEN SIE EINE TA 
IF INKEY$="" THEN GOTO 9115 
ERINT “3. M -BERMSTRAHLEN 

WENN SIE RAUF EIN SCL 


GERATEN ,WERDEM SIE Z 
IM HOEHLENSYSTEM UMH 


890 


PRND-EINE FRLLGRU 


BE 
WEHN SIE AUF_EIN 5 
OLCHES FELD GERFTEN FALLEN SIE 
IN EINE FALLGRUBE.SIE UEGE 
RLEBEN „UENN SIE UVEBER 32 _KRIST 
Sen BESITZEN.ANSONSTEN STERBEN 
=31239 PRINT 
sı24 PRINT 


3133 PRINT "4. 


"5. C -KRISTALLE 


IN EIMEM SOLCHEN Rau 
M_ SIND KRISTALLE VERSTECKT. 
DIE SOLLEN SIE SAMMELN.FUER JED 
5 RD BEKOMMEN SIE 1.009.939 
s5@@ IF _INKEY$="" THEN GOTO SSug 
s51@ GOTO 785 


26588 CLS 
Ss612 PRINT "SIERHABEN EINEN RAUM 
BETRETEN, WELCHER EIN GERRET EB 
EINHALTETE, WELCHES SIE NACH DRA 
BEFOERDETE..." 
PAUSE 200 
GSOoTO 520808 


"GANEYMEDE IH" 








Maschinen-Programm Loader zx-sı 


Eine Möglichkeit, Maschinenprogramme im Speicher 
abzulegen ist, sie in einem geschützten Bereich am oberen 
Speicherbereich unterzubringen. Diese Methode hat den 
Vorteil, daß man den unteren ungeschützten Speicherbe- 
reich mit einem neuen Basicprogramm laden kann, ohne 
daß dieses Maschinenspracheprogramm gelöscht wird. In 
diesem Bereich wird man also vor allem Daten und 
Programme ablegen, die mit mehreren verschiedenen 
Programmen kommunizieren müssen, also z. B. Utilities, 
Druckerroutinen für einen Nicht-Sinclair-Drucker oder 
Daten, die von verschiedenen Datei- und Adresspro- 
grammen benötigt werden. 

Diese Lösung hat aber folgende Nachteile: 

1.) Daten aus diesem Bereich lassen sich nicht ohne 
weiteres auf Kassette aufnehmen und wieder in den 
ZX-81 laden. 

2.) Wird das Schützen des oberen Speicherbereiches 
vergessen und erirrtümlich als geschützt angenommen, 
kann dies zu unliebsamen Überraschungen (Absturz 
des PGMs) führen. 

Das folgende Programm ist ein Versuch, dies auf mö- 
lichst elegante Weise zu lösen. 

Zunächst zur Eingabe des Programms: 

Das Ladeprogramm findet in einer REM-Zeile mit 
genau 307 Bytes Nutzlänge Platz. Da die Eingabe einer 
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WAS IST ANDERS BEI UNS ? 
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Softwarehouses, welches Großhandelshäuser in ganz Europa unterhält. 


BRINGT 

a) Unser Software Katalog ist bewußt eng begrenzt gehalten; nur 
so besteht die Garantie für einen schnellen Absatz. 

b) Die Programmauswahl erstellt jeweils ein Team von Teenagern 
(12-18 Jahre alt), repräsentativ für die heutige Hauptalters- 


c) Unser BACK-UP-SERVICE ermöglicht Ihnen einen schnellen Absatz 


UNSER SOFTWARE ANGEBOT SCHWANKT ZWISCHEN 8 AUS DER TOP 10 
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(entnommen: Personal Computer News Magazine, we/e 16. Juli 1983) 
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wochentags 10-19 Uhr samstags 10-14 Uhr 


so langen Programmzeile beim ZX 81 ein Problem ist, 
sollte man stattdessen folgende Zeile eingben: 

1 LET ABC gleich 0 plus 0 plus 0 ...plus 0 plus 0, wobei 
die Null genau 38 mal wiederholt werden muß. Zur 
Kontrolle: Print Peek 16821 muß den Wert 118 ergeben 
und Peek 16820 den Wert0. Durch Poke 16513,234 wan- 
delt man diese Zeile jetzt in eine REM-Zeile um (nicht 
mit Hilfe von Edit). Durch Poke 16510,0 erhält diese 
Zeile die Zeilennummer () und ist so vor versehent- 
lichem Editieren geschützt. Jetztkann man den Bereich 
von 16514 bis 16820 mit dem Maschinenprogramm 
überschreiben. 

Anwendung des Programms: 

Durch die Zeile "Print Usr 16514,X,Y” wird der Spei- 
cherbereich von der Adresse X bis einschließlich Y in 
einer automatisch erzeugten REM-Zeile abgelegt. Jetzt 
befindet sich also eine weitere Zeile mit der Zeilen- 
nummer 0 im Programmspeicher, die sich nur unvoll- 
ständig auflisten läßt. Achtung: Wenn die Zeilen 0 in 
der Anzeige stehen, darf der Cursor-Down Befehl nicht 
angewendet werden! (Programmabsturz!). Nur LIST 1 
erlaubt, um das übrige Programm zur Anzeige zu 
bringen. Selbstverständlich kann man statt der Vari- 
ablen XundY auch beliebige Arithmetische Ausdrücke 
verwenden. Beim Ausführen dieser Programmzeile 








GEWINN !! 
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wird automatisch eine Prüfsumme berechnet. 

Nach dem Eingeben eines dem angegebenen Basic- 
Programm entsprechenden, kann das Programm durch 
RUN auf Kassette abgespeichert werden. Zur Zeiter- 
sparnis sollte vorher Poke 16389,68 eingegeben werden: 
Dadurch besteht der Bildschirmspeicher nicht mehr 
aus 793 Bytes sondern nur noch aus 25 Newline- 
Zeichen. 

Beim Wiedereinladen wird dann durch Rand Usr 16621 
zunächst die Bildschirmausgabe abgeschaltet, die Prüf- 
summe erneut berechnet und verglichen, ob sie noch 
mit der ursprünglichen übereinstimmt. Ist dies nicht 
der Fall, löscht sich das Programm automatisch. Wem 
das nicht gefällt, der kann den Befehl jp nz, 03ECH in 
der Adresse 40FDH durch jp nz, 02F4H ersetzen. Jetzt 
wird bei einem Ladefehler die Fehlermeldung F aus- 
gegeben. Als nächstes wird der Inhalt der Speicherzelle 
(Err-sp)plus2 überprüft. Man erhält diese durch Print 
Peek 16386plus256 .Peek. 16387plus2. Hat diese Spei- 
cherzelle den Inhalt 1, wird der Programmablauf durch 
Fehlermeldung 9 unterbrochen. 

Vor dem Aufnehmen auf Kassette und dem Wieder- 
einladen muß also ein entsprechender Poke-Befehl 
ausgeführt werden, wenn sich das Programm nicht 
automatisch starten, sondern es kopiert werden soll. 
Ist der Inhalt von (Err-sp)plus 2 ungleich 1, wird jetzt 
selbständig ein für das Maschinenprogramm ausrei- 
chender Speicherplatz geschützt und es hineingeladen. 
Man braucht also vor dem Laden keine eigenen Maß- 
nahmen zum Speicherschutz mehr treffen. Zum Ab- 
schluß wird noch der Bildschirm wiederaufgebaut, 
wobei nicht die entsprechende ROM-Routine sondern 
eine andere, schnellere verwendet wird, und ins Basic- 
System zurückgesprungen. Hier kann dann z. B. ein 
Kommentar oder eine Programmbeschreibung aus- 
gegeben werden. 

Durch Rand Usr 16730 können die Programmzeilen (0) 
bis 9 gelöscht und das übrige Basic-Programm ab der 
Zeile 10 fortgesetzt werden. Dieser Befehl kann auch 
weggelassen werden, zumindest sollte aber stattdessen 
durch einen Slow-Befehl die Bildschirm-Ausgabe wie- 
der eingeschaltet werden. Auch bei Anwendung des 
Usr-Befehls bleiben alle Basic-Variable erhalten. 
Interessant für viele ZX 81-Anwender dürften folgende 
Routinen sein: 

Adresse 4125H: Ab hier steht die Routine, die einen 
leeren Bildschirmspeicher vollständig mit Leerzeichen 
füllt. Das darüberliegende Variablengebiet wird dabei 
nicht, wie in der ROM-Routine für jedes einzelne 
einzufügende Byte verschoben, sondern aufeinmal, um 
die gesamte Distanz. Besonders bei großen Variablen- 
mengen führt das zu einer großen Zeitersparnis. 


Man propiere einmal: 

Poke 16389,68:Dim A (14000):Cls (dauert über 4 min) 
und als Vergleich Poke 16389,68:Dim A (14000):Rand 
Usr 16677 (ca. 0,3 sec). Diese Routine darf allerdings 
nur bei abgeschalteter Bildschirmausgabe angewendet 
werden. Also entweder vorher in den Fast-Modus 





umschalten oder, wenn die Routine eigenständig ver- 
wendet wird, call 02E7H voranstellen und durch rst 
08H:defb FFH abschließen (statt ret). 

Adresse 4181H: Mit Hilfe dieser Routine kann man auf 
elegante Weise Parameter an Maschinenprogramme 
übergeben. 

Man verwendet dabei den Aufruf Print Usr Aufruf- 
adresse, 1. Parameter, 2. Parameter, ... 

Die hier angegebene Routine berechnet bei jedem Auf- 
ruf einen weiteren Ausdruck an. 

Die verwendeten ROM-internen Unterprogramme ha- 
ben dabei folgende Bedeutungen: 

rst 18H: lädt dne Akkumulator mit dem laut System- 
variable Ch-add aktuellem Byte, wobei Leerzeichen 
übersprungen werden. Dies ist Anfangs das der Usr- 
Adresse folgende Byte. 

rst 20H: Das nächstfolgende Byte, das kein Leerzeichen 
ist, wird zum aktuellen Byte. 

jp OD9AH: Fehlermeldung C wird erzeugt. 

call 0F55: Nimmt den am aktuellen Byte beginnenden 
arithmetischen Ausdruck an und legt dessen Wert im 
Kalkulatorstapel ab. War dieser Ausdruck eine Zei- 
chenkette, so ist bit 6,(TYplusl) zurückgesetzt. 

call OEATH: Ist das oberste Kalkulatorstapelelement 
eine Zahl, so wird diese in eine Hexadezimalzahl um- 
gerechnet und im bc-Register abgelegt. 

call 1SCDH: Desgleichen jedoch für eine 8 bit-Zahl, die 
im Akkumulator abgelegt wird. Ist die Zahl zu groß, ist 
das carry-Flag gesetzt. 

jp 0EADH: Fehlermeldung B wird erzeugt. 

call 13F8H. Repräsentiert das oberste Kalkulatorsta- 
pelelement eine Zeichenkette, befindet sich jetzt im bc- 
Register die Zeichenkettenlänge und im de-Register die 
Anfangsadresse. 

rst 08H: Allgemeine Fehlerroutine; Fehlernummer 
wird dann der um eins erhöhte Wert des nachfolgenden 
Bytes (im Listing mit DEFB bezeichnet, da kein Ob- 
jektcode). 


SCHUETZEN DES OBEREN SPETEHER- 
ENDES UND HINEINLADEN EI 
MASCHNENSPRACHE - BROERANMES 

FUER ZX88,.8KROM/ZX81 MIT 16K RAM 
{C} HELMUT TISTHER 


SBREN BAUM FUER ML: 
REM PROGRANNNAME 


327 BYTES 


ı 
PRINT LEN GRBECEN, „KOMMENTAR 
IN DEN ZEILEN 
se RAND USR 18738 


REN AB HIER EIN BELIEBIGES 
sandte PROGRAMM EINGEBEN 


OB84.CODE SOURCE STATEMENT 


CDEFT22 CALL S2ETFH 

ü iD HL.41BR6H 
AR. (HL) 
HL 


(HL 

AL 

NZ. BI STERIS 
aar 


coswer ansan 





FERPPPeRP 
PPERPPRRR 
PRERPRRR 
ODORNRLID 


c 
{HLI,@0H 
HL 
{HL? ,@8H 
HL 


AL 

HL, (id4B07H) 
@SDSH 
\UBZ9IH) „Hu 
B6H 


82E?H 
4ıAS5H 
4+195H 
A,cHL) 


E 

HL. t48e2H) 
HL 

HL 
NZ.®SECH 
BZ 


Z.@CDCH 
AS 


DE,HL 
4B@4H) „HL 
SP.HL 


L. 
HL ,SE80H 
Ser RE 


H 
HL ,@&75H 
{SPY .HL 
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Schwarzes Loch für den ZX 81 


Obwohl es der Name vermuten läßt, ist 
dies kein Weltraumspiel. Das schwarze 
Loch ist vielmehr ein Quadrat mit der 
Kantenlänge 8, in dem eine vom Spieler 
anzugebende Zahl von Atomen verborgen 
sind. Nur durch Beobachtung der Re- 
flexion, Ablenkung und Absorption von 
hineingeschickten Strahlen hat der Ex- 
perimentator die Aufgabe, die Lage der 
Atome herauszufinden. Die Regeln der 
Bewegung der Strahlen werden im Pro- 
gramm selbst erklärt. 


Während der Suche nach den Atomen darf der Ex- 
perimentator beliebig viele Strahlen in das Loch schik- 
ken, muß aber in Kauf nehmen, daß er für jeden Strahl 
Punktabzug erhält.Mit nur wenigen Strahlen und da- 
für etwas mehr raten, ist ihm allerdings auch nicht ge- 
dient. Denn für jedes nicht erratene Atom gibt es eben- 
falls Punktabzüge. Die Bewertung ist dabei so be- 
messen, daß ein Spieler, der von allen nur möglichen 
Stellen Strahlen in das Loch geschickt hat und trotz- 
dem kein einziges Atom richtigerraten hat, Null Punkte 
erhält. Das andere, ebenso unwahrscheinliche Extrem 


jesıe: 19s 
issır. 
1655183.10 

BER PEHNARZES LOCH 


“ı11@ PRINT ‚„ "DRS SCHWARZE LOCH 
iST EIN 8*#8 CMHGROSSES QUADRAT. I 


N DEM EINIGE 
_A2@ PRINT .." 
sT Es. Durch 


ARTOME VERBORGEN SI 


ZIEL DES SPIELES I 

BESTRAHLUNG VON DE 
UN SEITEN UND DURCH BEOBACHTEN D 
ER ARBLENKUNG, 


121 PRINT "REFLEXION UND RARBSORB 
TION DIESER STARRHLEN. DIE PFOSITI 

ON DER _RTOMEZU FINDEN." 

138 PRINT .,"MRH KRNN BELIEBIG 
VIELE STRAHLENIN DAS LOCH SCHICK 
EN, ERHRELT RBER FUER JEDEN ST 
RAHL ı BzZu 2 BEI ABSLENKUNG)I UN 





ist 100 Punkte für alle Atome zu erraten, ohne einen ein- 
zigen Strahl zu benötigen. Am interessantesten ist das 
Spiel bei 5 bis 6 versteckten Atomen. 

Die Programmzeilen 2 bis 8 erzeugen ein Maschinen- 
programm in der 1. Rem-Zeile des Programmes. Diese 
muß eine nutzbare Länge von mindestens 5 Bytes 
haben. Nach dem ersten Programmdurchlauf wird sie 
die Zeilennummer 0 besitzen und läßt sich nicht mehr 
editieren. Das Maschinenprogramm dient dazu, den 
Bildschirm teilweise zu löschen. Hat das B-Register der 
CPU z.B. den Inhalt 10, werden durch call OA2CH die 
unteren 10 Zeilen des Bildschirms gelöscht.Die durch 
Cis aufgerufene Bildschirmlöschroutine beginnt bei 
der Adresse OA2A: In den zusätzlichen 2 Bytes wird das 
B-Register mit 24 geladen. 

Poke 16418,0 ermöglicht es, auch die unteren 2 Zeilen 
des Bildschirms zu beschreiben. Sogar Print at 23,31 
funktioniert jetzt! Nach dem Beschreiebn der beiden 
Zeilen sollte die Speicherzelle wieder auf den ursprüng- 
lichen Wert 2 gebracht werden, um einen Programm- 
absturz bei einer Input-Meldung und bei einer Pro- 
grammunterbrechung zu vermeiden. 

Um beim Laden von und auf die Kassette Zeit zu spa- 
ren, sollte vor der Aufnahme Poke 16389,68 eingegeben 
werden und der ZX81 in den Fast-Modus umgeschaltet 
werden. Die Aufnahme wird dann mit Run 9990 
gestartet. 


u” FUER JEDES NICHT ERRATENE ATO 
MH 5 FEHLER- FUNKTE.” 

139 GsOsUuB S2e@A 

148 PRINT 88; "STRAHLEN TRETEN S 
ENKRECHT ZU DENRANDFLAECHEN DURC 
nm DIEEINTRITTS-PUNKTE 1-52 EIN U 
nD BEWEGEN SICHSO FÜRT:" 

i5® FRINT _"1.STRAHLEN. DIE EIN 
ATOM DIREKT TREFFEN, WERDEN AR 
SORBIERT" 

iS@ PRINT "2.STRRHLEN.DIE EIN RA 
TOM STREIFEN WUERDEN, WERDEN SC 

SBGELENKT: " 

155 PRINT ie RE Brenn STR 

"!TAB 15; TAB 35," 


UL» 

1i7® PRINT "3.5STRAHLEN. DIE EIN 
STOM AN_RAN- DE DES LOCHES STRE 
IFEN., WERDEN REFLEKTIERT." 

IiS@ PRINT "4.STRARHLEN, DIE ZWIS 
SHEN 2_NUR EIN KRESTIHEN ENTF 
ZRNTE_ ATOME GERICHTET SIND, WE 
REN REFLEK- TIERT." 

198 PRINT "5.RLLE ANDEREN FLIEG 
EN GERRDERUS'" 

288 SSIUS Fanı 

CLS 

DIM Rtiıa,.ı1e 

LET Sska 
LET C=ke 
PRINT " 


FOR I=ki TO Ke 
PRINT 3," 
NEXT I 
PRINT " 


FRINT 


-3---. 


SII22222" 


EELELAT S21234 
"BNERHL DER ATOHE «1 





SINCLAIR 2X-81 





pe; 


an 

INPUT 5) 
IF Nı>INT 
N GCTO sıa 
FRINT N 
2a FOR I=k1 TON 

S3@ LET X=INT iRNDAKSIH4K2 
331 LET Ys INT IRNDSKSI +K2 
S4@ IF _B(X.yYi THEN GOTO 93q 
34S LET Bik .Yı=kı 
35a NEXT I 
En PRINT _ AT K9,16; ' 


N OR N<K1 OR N>16 


Bw -loıoT | 
nes 


WE TIeH% 


"EINGABE VON 
BEENDET DIE" .."EINGABE 


538 GOSUB 39068 
1808 LET X=Ka 

1881 LET Y=ro 

1811 INPUT.R 

ı812 IF NOT_R_THEN GOTa 
i813 IF Rı»>INT R SR “ 
THEN GCTO 1@1i 

i814 GOSUBR 39998 

41815 FRINT TAB T:;R;"->' 
ı192@ IF R<KS_THEN LET vi R 

R>=KS AND R<:17 THEN LET 


R»1iE AND Rı25 THEN LET Y 


R>24 THEN LET X=33-R 
IF vY AND Y<K9 THEN LET X=K8 


X«K9 THEN LET Y=K9 


vorge 


za08 
RıMi SR RISSE 


xiK9B THEN LET V=56 
Y«<K9 THEN LET U=SG 
"BIiX+U+K1.Y+U4+4K1) THEN GO 


ıı1ı1@a IF v THEN GOTO 1178 
RBiX+UsK1l,.Y+K2) THEN LET 


BIX+U+K1,Y) THEN LET V=K 


NOT U THEN GOTO 1222 
NOT X OR X=K93 THEN GOTO 


LET U= 
ooro 11080 
IF BIX+K2,Y+V+K1) 


IF BIiX.Y+V+K1) THEN LET U=K 


IF NOT U THEN GOTO i22e 
IF NOT Y GR Y=K9 THEN GOoTeo 


LET U=Kk® 

sora 1122 

LET X=X+U 

LET Y=Y+UVU 

IF» RAND X<K9 AND Y AND YıKk 
EN GOTZD 1188 

IF NOT _X_THEN LET Z=Y 


Pi 
[>12 


THEN LET 


JM 
Pr 


FASABR 


Kuna Firkrfler ri 


LET S=S5+N1 
GOTO_1B08 
LET C=8 

PRINT FRT_K9,16; "NUN SAG_MIR 
","SICH DIE ATOME “. 


RAND USR_ 16514 
PRINT TAB_I3: "ZEILE SPALTE" 


5 

3 IF X=K3 THEM LET Z=23S5-Y 
3 IF NOT Y THEN LET Z=33-X 
3 IF Y=K3_THEN LET Z=X+K38 
3 IF Z=R_ THEN GOTO 15988 

& PRINT Z - 
& LET 5=5+K2 

A GOTO_ 1899 

5 PRINT "REFLEKTIERT 

5 LET 5=5+K1 

5 SOTO 1298 

2 PRINT "RBSORBIERT" 

& 

2 

8 


Vu 
“ 
ı 
& 
ı 
ı 
En 
3 
x 
4 
25 
ii 
2 
4 
2. 
ı 
er 
ak 
3 
ES 
i 
3 
ı 
2 
x 
ı 
ı 
ı 
* 
4 
= 
x 
S& 


“BEFIN 
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335322222 
SI@SSTS5 


[TE La 7a RT Te 
STE 


- EINGABE VON 
=e "8" BEENDET DIE 
@ EINGABE 
> 
> 
> 


ı18->16 


123 

ABSORBIERT 
Fre 
EIER 
iS5->ABSORSIERT 
SE->ABSORBIERT 
4 - >ABSORBIERT 
STRAHL? 


zas22222 
„21893765 


. 
D 


NUN S5AG_MIR, WO 
SICH DIE RATOME 
BEFINDEN 


ZEILE SPALTE 
ER ?3 


Siehe 
133 


sss322222 
21a93765 


sölasass 


DU HAST 4 ATOME VON 5 

RICHTIG ERRATEN 

DEIN RESULTRAT FUER DIESE RUNDE 
IST 57 VON MAX 188 PUNKTEN 


MOECHTEST DU BOSnan, SPIELEN? 
N 





FOR I=Kk1 TO N 
393 GSOSUB 3258 
2840 PRINT "ATOM NR. ";1;":";TRE 
la,rten) 
| September = 


Homecomputer 19 | 








\ 


PRINT AT I3,Rı; 
RETURN 
IF CPEER 15442: >K2 THEN RETU 


RAND _USR 16514 
u 2 LET T=K8 
OR XxıKkı OR x>Ke Asa BRINT AT 21.KW "STRAHLTTIAT 
398 RETURN 
3318 PRINT ST S8.Kajas; "WEITER? 
5 = 3212 DR E 
IF HOT BIX,Y) THEN LET S=S+ | EINETTASTE RUscHen”” 
IF BIX,Y) e>K2 THEN GOTO 211 52 PAUSE aEa - 
IF PEEK 16442:=3 THEN RAND 223 POKE 16437,255 
2105" PRIN 3338 Kertunn 
PRINT_"DU SCHUINDLER ERHREL 4 n EU 
TST_ 18" ,"STRAFPUNKTE" ; SAVE "BLAOKSORX 
186 LET S-=S+10 : cLS 
3118 IF B{X,Y)=Kıi THEN LET C=C+K |: RUN 


rs STor 
3115 IF B{X,Y) THEN LET B(x,Y)=Kk 


Zı2@ NEXT I 

228@ FOR I=k2 TO Ka a a u EN 

2218 FOR_J=K2 TO Ka 

2230 1F, B(I,ıı THEN PRINT AT W,I 

2238 NEXT u 

2248 NEXT I 

2388 PRINT AT K9,16;A$,A$,R$ 

2381 RAND USR 16514 

2318 PRINT "DU HAST _ ":C:" ATOME 

VON ";N, "RICHTIG ERRATEN“ , . "DEIN 

„RESULTAT FUER DIESE RUNDE’ IST 
; INT (108#* (324S&N-S} /(32+45#N) +. 

s};" VON MAX 188 PUNKTEN” 

2328@ PRINT _AT 2@,K®; "MOECHTEST D 

U NOCHMAL SPIELEN?" ."IGFN) 

> « 





IF INKEY$="\" THEN GOTO 6pe || EEE ) 
Ir INKEY$="N" THEN GSGTG 2333 || nu: 


GOTO_23525 
IF PEEK 1&442>3 THEN RETURN 


IF T=16_THEN GSOTO 3958 


COMMODORE 64 


endlich gibt es nun auch für den C 64 einen wirklich leistungsfähigen 


Maschinensprachemonitor 


Das 4 K lange Maschinenprogramm belegt keinen Basic-Speicherplatz und bietet folgende 
Möglichkeiten: 


® Laden eines MP @ Assembler 

@ Abspeichern eines MP @ Disassembler 

® Aufruf eines MP ® Druckerausgabe 

® Registeranzeige @ Fioppyhandling, 

@ Speicheranzeige + ASCII auch von Basic aus 

® Rechnen und Verknüpfen ® Suchen und Austauschen 
@® Umwandlung Hex/Bin/Dez ®@ Kopieren und Vergleichen 
u.a.m. 








er Preise inkl. MwSt. 
Handbuch ö Versand per Nachnahme 


(wird beim Kauf angerechnet) 


Hermann Blos 
Rosenberger Str. 56 
8458 Sulzbach-Rosenberg 


SOFTWARE ENTWICKLUNG MIKROCOMPUTER Tel. (09661) 51880 








Weltraumschlacht 


Wilde Exoterristen versuchen die Erde 
zu zerstören. Die Menschheit hofft auf 
den Commander eines Raumschiffes, der 
es fertigbringt, die Angreifer aufzuhal- 
ten und zu verjagen. 


DAS SPIEL IST FUER JOYSTICK LCONTROL 
PORT 23 GESCHRIEBEN.WOLLEN SIE ES MIT 
KEYBOARD SPIFLEN ,AENDERN SIE BITTE 
FOLGENDES UM: 

98 A=1 

138 GET A$ 

ida@ IF A$="P" THEN498 

158 IF A$="L_" THENSQ® 

i698 IF A$=" "THENB8® 


READY. 


GESTEUERT WIRD DANN MIT DEN TASTEN 

P UND L ‚DIE SPACE--TASTE DIENT ALS 
FEUERKNOPF „ 

BEI UNTERBRECHUNGEN DES SPIELS DURCH 

DIE STOP--TASTE ODER NACH DEM SPIELEN 
MUESSEN RUNSTOP UND RESTORE GLEICHZEITIG 
GEDRUECKT WERDEN, DA SONST DIE TASTATUR 
DURCH DIE JOYSTICK-KONTROLLE BLOCKIERT 
IST. 


ACHTUNG I} 

IM AUSDRUCK KLEINGESCHRIEBENE BUCHSTABEN 
SIND IM PROGRAMM DIE ZU DIESEN 
BUCHSTABEN GEHOERENDEN GRAFIKZEICHEN 

IM 'SHIFT'-ZUSTAND . UNTERSTRICHENE 
BUCHSTABEN UND ZEICHEN SIND NEGATIV. 





= CLR 

CRSR UP 
CRSR LEFT 
WEISS 
TUERKIS 
GRUEN 
GELB 


>= HOME 
= CRSR DIUN 
= CRSR RIGHT 
= SCHWARZ 
= ROT 
= VIOLETT 
= BLAU 


ROM la, 


De 


VIEL SPASS 1 


PRINT" s! : GOSUB1588 

RESTORE:: PRINT" s!:P=58:0=8:00=18 
POKES3288 ‚8: POKES3281 ,8 
%=1:Y=1:2%=1:2Y=1:2=1504 

POKEZ ‚187: POKECZ+54272),5 
FORI1=1T038 
A=CINTCRNDC1)X1088))+1024 

POKEA „182: POKECA+54272),6 

NEXTI 


In diesem Spiel für den Commodore 64 baut der Feind 
Magnetfelder auf, die es gilt, zu zerstören. Eine gar nicht 
so leichte Aufgabe, wie man beim Spielen feststellt. 
Wie auch bei "Wildwasser” kann das Spiel über die 
Tastatur oder einen Joystick betrieben werden. Die 
dazu zu ändernden Zeilennummern sind angegeben. 
Auch eine Erklärung zur Eingabe der Grafik- Farb-und 
Cursor-Steuerzeichen ist beigefügt. 

Viel Spaß! 


98 POKES6322 ,224:A=1 

188 IFPEEK(1024+%+Yx49 )<>32THEN3B8 

185 P$=STR$CP)J:PRINT"SEII)1111111]J EP 
$: IFP<=8THEN2898 

118 POKEiQ24+Xx+Yx48 ‚86: POKESS2I6+X+Yx4Q, 
3 

128 FORI=1TOR: NEXT 

138 J=PEEK(56328 ) 

148 IFCJANDI )=BTHEN488 

158 IFCJAND2 J=8THENS89 

168 IFCJAND16 J)=8THEN689 

178 POKE1824+X+Yx49,32 

1808 %=X+2% 

198 IFX=90RX=39THENZX=-2%:D=LINTERNDE1 IX 
1888 )+1824 ):POKED ,182:P=P--8 

195 POKEC54272+D),6 

288 Y=Y+ZY 

218 IFY=BORY=24THENZY=-2Y:D=CINTERNDEL IX 
18898 )+1824 ):POKED ,182:P=P-8 

215 POKE(54272+D),6 

228 GOTO188 

388 IFPEEK(1924+%+Yx40 )=187THEN1888 

318 2X=-ZX: 2Y=-2Y 

322 GOTO188 

488 IFLZ-48)I<1924THEN178 

418 POKEZ „32 

420 2=2-48 

438 POKEZ ‚187: POKECZ+54272),5 

448 GOTD1?8 

588 IFCZ+48)J>1984THEN178 

518 POKEZ ‚32 

520 Z=2+48 

538 POKEZ ,187:POKE(Z+54272),5 

548 GOTO1?8 

628 C=1 

605 FORI=(CZ+1JTOCZ+39) 

618 POKEI ‚64: POKEC54272+1),7:C=C+1 

615 IFPEEKLI+1)J=1820RPEEKCI+1 J=86THEN6?8 
628 NEXTI 

638 FORI=(CZ+1JTOCZ+C) 

648 POKEI ,32 

658 NEXTI 

668 GOTO178 

678 IFPEEKCI+1)=182THENP =P+2: G0OT0638 

675 FORJ=15TO8STEP-1:NEXTJ 

688 POKECI+1),182:P=P+198:0=0+1: IFO>=OOTH 
EN2588 

698 FORI=CZ+1JTOCZ+CC-1)) 





?88 POKEI,32 
718 NEXTI 
728 8=1:Y=1:2%=1:2Y=1 
738 GOTO188 
1888 FORI=2QTO1S 
12818 POKES328®, 
NEXTI 
FORI=1T0588: NEXT 
PRINT"spaQQQ SIE WURDEN MIT "P" 
VOM FEIND GETROFFEN." 
PRINT"Q899Q NOCH EIN SPIEL [LJ=1:N 


GETA$: IFA$=""THEN1868 
IFA$="i"THENIS 
PRINT"sBITTE RUNSTOP/RESTORE DRUECK 


I: POKES3281,1I 


PUN 


END 

POKES3288 „8: POKES53281 ,8 
FOR1=1996T02811 

POKET „113 

READA 

FORJ=CI-48 IJTOCI-888 ISTEP-48 

POKE.) „93: POKE(J+54272),7: POKEJ ‚32 
NEXT J 

POKECJ-48),A 

POKEI,32 

NEXTI 

DATAZ3,3,12 ,298,18,1,21,13,19:3,8,12 
8,28 

1598 FORI=1T0688: NEXT 

1688 PRINT"<QQQQ. EIN SPIEL VON «TITUS 
NEUMANN" 





i618 FORI:1T01888: NEXT 

1628 PRINT"sQQQ. SIE BEFINDEN SICH IM 
WEILTRAUM UND" 
1638 PRINT" 
FEN," 

i648 PRINT" 
ETFELDER" 
1658 PRINT" 
zu " 

1668 PRINT" 
NDERN , " 

i678 PRINT' 
RNICHTEN.” 
1688 PRINT"QQQQ. v 18 PUNKTE" 
1698 PRINT"Q & 2 PUNKTE" 

1788 FORI=1T012888: NEXT:PRINT"s": RETURN 
2888 FORI= 15TOOSTEP- -1:POKES3288, I: POKES3 
281 ,1:NEXTI:PRINT"f 

2218 PRINT" sQQQ. IHRE ENERGIE. IST. AUSGEGA 
NGEN. 

2928 FORI=1T03988: NEXT: GOT01958 
2588 PRINT"€sQ0Q SIE HABEN "0" 
E SCHIFFE VERNICHTET " 
2518 PRINT" UND HABEN "P" PUNKTE." 

2528 PRINT" WOLLEN SIE AUFHOEREN? LJ=1:N 
=2]" 

2538 GETA$: IFA$=""THEN253A 

2548 IFA$="2" THEN2S6® 

2558 GOTOi888 

2568 00=00+18:PRINT"s" 

2578 GOTO28 


WERDEN VOM FEIND ANGEGRIF 
DIESER BAUT UEBERALL MAGN 
AUF ,UM IHNEN IHRE ENERGIE 
ENTZIEHEN.UM DAS ZU VERHI 


MUESSEN SIE DIE FELDER VE 


FEINDLICH 


Wildwasser 


Auf die Plätze..... fertig..... los! 
Wildwasserfahren; ein Sport für harte 
Jungs und Mädels. Nicht jedermanns Sa- 
che (obwohl es,einen Riesenspaß macht), 
am frühen Morgen eiskalte Gebirgsbä- 
che mit einem schmalen Boot zu durch- 
streifen. 

DAS SPIEL IST FÜER JOYSTICK CCONTROL 
PORT 2) GESCHRIEBEN.WOLLEN SIE ES MIT 


KEYBOARD SPIELEN ,AENDERN SIE BITTE 
FOLGENDES UM 


432 LOESCHEN 

562 GET M$ 

578 IF M$="G" THEN?8® 
598 IF M$="H" THEN88B 


READY. 


Wer einen Commodore 64 hat, kann jetzt das gleiche 
Vergnügen ohne die enormen Strapazen erleben und, 
vom warmen Sessel aus, sogar meerere Boote gleich-: 
zeitig um zerklüftete Felsen steuern. Dabei muß man 
darauf achten, daß die Boote nicht an Felsen zerschel- 
len. Der Schwierigkeitsgrad steigt mit zunehmender 
Zeit. Ein spannendes Spiel für die immer größer wer- 
dende Commodore-64-Anwender-Schar. 


DIE STEUERUNG ERFOLGT DANN MIT DEN 
TASTEN G UND H. 

DIE HAEUFIGKEIT DES AUFTRETENS VON 
ZUSATZBOOTEN KANN DURCH AENDERUNGEN 

VON ZU IN ZEILE 442 BEEINFLUSST 
WERDEN. JE KLEINER ZU, DESTO HAFUFIGER 
ERSCHEINEN ZUSATZBOOTE . 

BEI UNTERBRECHUNGEN DES SPIELS DURCH 
DIE STOP-TASTE ODER NACH DEM SPIELEN 
MUESSEN RUNSTOP UND RESTORE GLEICHZEITIG 
GEDRUECKT WERDEN, DA SONST DIE TASTATUR 
DURCH DIE JOYSTICK-KONTROLLE BLOCKIERT 
1Sr« 








ACHTUNG 

IM AUSDRUCK KLEINGESCHRIEBENE BUCHSTABEN 
SIND IM PROGRAMM DIE ZU DIESEN 
BUCHSTABEN GEHDERENDEN GRAFTIKZEICHEN 

IM 'SHIFT'-ZUSTAND .UNTERSTRICHENE 
BUCHSTABEN UND ZEICHEN SIND NEGATIV. 


: HOME 

= CRSR DOLIN 

= ERSR RIGHT 

= SCHWARZ 

= ROT 

= VIOLETT 
= BLAU 


CLR 

ERSR UP 
CRSR LEFT 
WEISS 
TUERKIS 
GRUEN 
GELB 


Del) 


SEITE 1a In 


VIEL SPASS 


i DIMA$C3B) 
5 POKES3288 ‚8: POKES3281 ,14 
18 PRINT"s" 
il PRINT"eQQ 
SUB1808 
CCc=i 
PRINT"ESQQAGAJJII]"CC". 


PRINT"QQQIIIIIIIJIFERTIG ?" 
GETB$: IFB$=""THENIS 
POKES3288 ‚8: POKES3281.,6: PRINT" sQ9Q90Q 


WILDWASSER ":G0 


RUNDE : "N$CC 


A$C1)=" R. 


":BC$=" 
1":BC=26 


Er 
AB$="R rL":CD$=" 


FORAB=2T02? 
A$CABI=AB$+CD$+MID$CBC$ ‚,1,BC) 
AB$=AB$+"R 1 :BC=BC-1 
NEXTAB 

168 AB$="":BC$="":CD$="":AB=9:BC=Q 

438 POKES6322 ,224 

448 B=14:D=28:E=8:F=3:6=1:H=1:K=5:L=-1:W 

=8:MM=81: TT=8:AB=1:ZU=28 

458 PRINT" BE! :PRINTA$CBI; :POKEC1864+D),18 

2: POKECSS336+D),7 

588 C=INTCRNDEIIXF)I-G:E=SE+1:W=W+1 

583 IFTT<>QOTHENGOSUB3998 

585 IFE=288THENGOSUB1188 

518 IFCB+C J<10RCB+C J)>27THENS®Q 

528 B=B+C: IFCINTCRNDC1 IXKZU JI=BTHENGOSUB2 

888 

521 PRINT"r'A$CB); 

522 IFCPEEKC1184+D)J)I<>32THEN89IO 

523 POKE(1864+D),182:POKE(SS336+D ),? 

531 POKE1024 ,11:POKESS5296 ,14:POKE1025,13 

: POKESS29? ‚14 

532 POKEi965,CH+48 ):POKESS337 ‚14 

535 POKE1862,2: POKESS334 „14 

548 POKE1182,(K+48):POKESS374 ,14 

568 J=PEEK(S56322) 

588 IFCJAND4 J=BTHEN?288 

538 IFCJANDSI=BTHEN888 

612 GOTOS28 

788 POKE(C1864+D),32:1I=D 

718 IFCD-AB)J<BTHEN?48 

728 D=D-AB 





738 IFCPEEKC1864+DJ)I<>32THEN8IO 

748 POKE(1864+D),182:POKE(55336+D),7 

758 GOTOS®8 

888 POKEC1864+D),32: 11=D 

818 IFCD+AB)I>3SITHENS49 

8228 D=D+AB 

838 IFCPEEKC1864+D JI<>32THENS9YO 

848 POKEC1864+D),182:POKEC55336+D),7 

858 GOTOSB8 

8938 IFCPEEKC1854+DJI<>BIANDLPEEKC1194+D) 
IS>81ANDLCPEEKC1144+DJ)I<>81THENIO® 

895 IFCK+1 I>9THEN89? 

896 K=K+1 

897 GOTOSB® 

998 IFTT=3THEN258® 

981 POKES4277? ‚8: POKES4278 „8: POKES4296 ‚B: 
POKES4273 ‚8: POKES54272 ‚8: POKES4276,,8 

982 POKES4277 ‚8: POKES4278,8:POKES4296 ‚O: 
POKES4273 ‚8: POKES4272 ‚8: POKES4276,8 

985 POKES4284 ‚9: POKES4285 ‚8: POKES4283,0: 
POKES4288 ‚8: POKES4279,9 

918 POKES4277 ‚39: POKES4278 ,31: POKES54276, 
129:POKES4296,15: POKES4273,6 

9228 POKES4272,286 

938 FORJ=1T04:FORI=1T019:POKES3281 ,1:POK 
E53288 ,1:NEXTI: NEXTJ 

948 POKEC1864+D ),32:POKES3280 „8: POKE5S328 
1,6:K=K-1: IFCLPEEK(1864 ) J=86THEN2398 

358 L=L+1: IFCPEEKC1964+L II<>32THENI5Q 

955 D=L+7:L=-1 

968 FORI1=1T01888: NEXT: IFK=@8THEN1598 

998 GOTO588 

1888 PRINT" Tuiuiuiulu"sPRINT" 

Jkyköksksk" 

i885 PRINT"QQ. EIN SPIEL VON awTITUS 

NEUMANN” :FORI=1T01588: NEXT 

1818 PRINT"sQQQ. SIE MUESSEN IHRE BOOTE D 

URCH EINE SCHLUCHT" ; 

1828 PRINT" ZUM HAFEN STEUERN.":PRINT" P 

ASSEN SIE AUF ‚DASS SIE"; 
1838 PRINT" NICHT AN DEN 
HELLEN." PRINT 

1848 PRINT” NACH JEDEM KM ERALTEN SIE 5 
NEUE BOOTE UND FAHREN MIT DIESEN"; 

1841 PRINT" WEITER.":PRINT" AUSSERDEM WI 
RD DIE STRECKE NACH JEDEM"; 

1842 PRINT" KM SCHWIERIGER.":PRINT" BIS 
ZU 4 HERUMSCHWIMMENDE BOOTE KOENNEN" ; 
1843 PRINT" ZUSAETZLICH BENUTZT WERDEN." 
1844 PRINT" SIE DUERFEN DIESE BOOTE ABER 
NICHT UEBERFAHREN, SONDERN" ; 

1845 PRINT" MUESSEN SIE SEITLICH 
AUFNEHMEN.“ 
1848 PRINT" 


FELSEN ZERSC 


JE NACH SCHWIERIGKEITSGRAD E 
RREICHEN SIE NACH EINIGEN KM DEN"; 
1849 PRINT" HAFEN.” 

1858 PRINT"QQ. FERTIG ? 

1855 GETB$: IFB$=""THEN1955 

1856 INPUT"sQJIJIWIEVIELE SPIELER (-9) "+S 
P:PRINT: IFSP>ITHEN1956 

1857 PRINT:PRINT:FORZ=1TOSP: PRINT" LLINAM 
E SPIELER "2; : INPUTN$CZ)J:GOSUB2188 

1858 PRINT:PRINT:NEXTZ 

1868 RETURN 

1188 POKES4277? ‚8:POKES54278 ‚8: POKES4276 ,8 





:POKES54273,9: POKES4272,8 

1185 POKES4284 ‚9:POKES4285 ‚8: POKE54283 ,8 
:POKES4288 ‚8: POKES54279,8 

1118 POKES4277 „24: POKES4278 ,255: POKES427 
6,17: POKES54296 ,15:POKES54273,68 

1128 POKES4272,149:FORI=1T0198: NEXT: POKE 
54296 ,8 

1288 E=8:F=F+2:G=INTCF/2J:H=H+1: IFH>SHLC 
C ITHEN2298 

12084 IFH>STHENAB=2 

12085 IFK>STHEN1388 

1218 K=5 

1388 RETURN 

1588 POKE1862 ‚48: POKESS334 ‚14: FORI=1T03: 

POKES4277 ‚8: POKE54278 „8: POKES4276 ,8 

1518 POKES4273, 8: POKES4272, 8: POKES4296 ,8 
1528 POKES4277? ‚31: POKES42>8, 31: POKES4276 
‚129: POKES4296 ‚15: POKE54273,6 

1538 POKES4272 „286: FORA=1T018: POKES3288, 

A:POKES3281 ‚A: NEXTA: FORA=1TO188:NEXTA 

1548 NEXTI 

1558 FORI=1T01589: NEXT 

1568 POKES4284 ‚9: POKES4285 ‚8: POKE54283,0 
:POKES4288,8: POKES4279, 8 

1578 POKES4296, 15: POKES4284, 19: POKES4285 
‚299: POKES4283 ,17 

1588 READHF : IFHF=-1THEN178®8 

1598 READLF 

1688 READTD 

1612 POKES4288 ‚HF:POKES4279,LF:FORI=1TOT 

D: NEXT 

1615 POKES4284 ‚8: POKE54285 ,8: POKES4283,8 
:GOT01578 

1628 DATA14,187,1200,14,107,900,14,107,3 

88,14,107,1288,17,37,980,16,47,388 

1638 DATA16,47,900,14,107,300,14,187,908 
‚13,156,308,14,107,2400,-1 

1788 POKES54296 ,‚8:CC=CC+1 

1781 RESTORE 

1782 GOTO2258 

1785 GOSUB2688 


i718 PRINT"QQQQII1 NOCH EIN SPIEL ? CJ=l 

/N=2)" 

1715 GETS$: IFS$=""THEN1715 

1716 IFS$<>" 1" THEN1738 

1728 POKES3288 ‚6: POKES3281 ,6:G0T012 

1738 POKES3288 ‚6:POKES3281 ,14:PRINT"€sSQQ 
BITTE RUNSTOP/RESTORE DRUECKEN . 

1748 END 

2888 POKEL1944+(B+6)),MM:POKEC56216+([B+6 

)),13: RETURN 

2858 PRINT"sQQQIIIISPIELENDE SPIELER "CC 

E-1) 


ig PRINT" aa] SIE KONNTEN SICH "CWX5) 


2061 PRINT" 11] VEBER WASSER HALTEN. 


2862 PPCLCCC-1)JI=INTCW/128 9: IFPPLLCC-1)I< 
ITHENPPCCCC-1))=1 

2863 PRINT" SIE HABEN "PPCCCC-1)9)" PU 
NKTE .„" 

2068 FORI=1T06B8B: NEXT:POKES3281,6 

2869 IFCC>SPTHENI1785 

2878 GOTO13 


2188 PRINT: INPUT" ]IIWELCHER SCHWIERIGKEI 
TSGRAD (1-9) ";SHL2)I 
2118 IFSHLCZI>9THEN2188 
2128 RETURN 
2288 FORI=1T027 
2218 A$lI)="rtvvv vv. VV VV UV UV UV UV U 
NEEUVEEUTVEENTSEEUTGIGEE 
2228 NEXTI . 
2238 MM=32: TT=1:G0T0588 
2388 D=11:G60T0968 
2488 FORI=1T02? 
2418 A$LI)="tR 
L. 

2428 NEXTI 
2423 TT=2:E=8:G0T0588 
2588 PRINT" 

"NSCCC)I" BR" 
2518 PRINT"QQISIE HABEN NACH 
STRENGENDER" : PRINT. 
2528 PRINT"IFAHRT MIT "K" BOOTEN":PRINT: 
PRINT"IDEN HAFEN ERREICHT ER" 
2521 PPCCCI=INTCCW/152)+K)J: IFPPCCCI<ITHE 
NPPCCCI=1 
2522 PRINT"QISIE HABEN "PPCLCC)I" 
2538 FORI=1T08808: NEXT:PRINT"e" 
2548 CC=CC+1 
2558 IFCC>SPTHEN178S 
2568 GOTO13 
26088 Z=SP:FORI=1T0Z 
2618 WTCII=INTCPPCI))I 
2628 NEXTI:PRINT"se" 
2638 POKES3288 ‚8:POKES3281 ,8:B=1024:F=55 
296 
2648 BO=-B+928:F0=F+928 
2658 FORA=9TOZX4-2 
2668 POKEBO+NA ,99:POKEFO+A,13 
2678 NEXTA 
2688 FORJ=1TOZ 
2698 IFWTLJ I=QTHEN2878 
2788 FORL=1ITOWTCJI 
2718 BH=BO-LX48: FH=FO-Lx48 
2728 FORM=8TO2 
2738 POKEBH+M, 168: POKEFH+M,S 
2748 NEXTM: NEXTL 
2758 FORP=1TO03 
2768 POKEBH-88+P ‚188: POKEFH-88+P ,14: NEXT 
p 
2778 SS=BO-37:SF=F0O-37 
2788 POKESS,185:POKESF,6 
2798 FORN=1TOWTLJI-1 
2888 POKESS-NX48,168: POKESF-Nx48,6: NEXTN 
2818 POKESS-UTLJJX48 „233: POKESF-UTCJ I)x40 
„6 
2828 POKEBH-48,78: POKEFH-49,14 
2838 BO=BO+4:FO=FO+4:NEXTJ 
2848 FORQ=1T023:PRINT:NEXTQO 
2858 FORJ=1TOZ 
2868 IFWTCJI>9THENPRINTWTCJY IS 
2878 IFWTCJI<IBTHENPRINT" "SWTCJJ 
2888 NEXTJ 
2898 PRINT"S” 
2988 FORI=1T06888: NEXT 
2918 RETURN 
3822 IFE=8ANDTT=1THEN2498 
3818 IFE>21IANDTT=2THENTT=3 
3828 RETURN 


CH GRATULIERE, 
"CWXSI"M AN 


PUNKTE „" 








Joyp ainter (VC = 20 mit 16 K) Programm-Listing auf Seite 28 


Dieses Programm ermöglicht es, unter 
Zuhilfenahme eines Joysticks auf dem 
Bildschirm des VC-20 in hochauflösen- 
der Grafik zu malen. Hierzu stehen eine 
sehr große Zahl von Befehlen zur Ver- 
fügung. 

Vor dem Laden des Programms ist der 
BASIC-Start mit 

POKE 44,32 : POKE 8192,0: NEW 
höher zu legen. 

Ein Nachteil des Programms besteht lei- 
der darin, daß das Programm in BASIC 
geschrieben ist und daher relativ langsam 
ist. 


Befehle: 

FI Zeichne Punkt unter Cursor 

F2 Lösche Punkt unter Cursor 

F3 Zeichne Linie zwischen den 2 zuletzt gekennzeich- 
neten Punkten 

F4 Lösche Linie zwischen den zwei zuletzt gekenn- 
zeichneten Punkten 

F5 Fülle Fläche zwischen den 3 zuletzt gekennzeich- 
neten Punkten 

F6 Lösche Fläche zwischen den 3 zuletzt gekennzeich- 
neten Punkten 

F7 Gib Text am zuletzt gekennzeichneten Punkt aus 
- keine Grafikzeichen 

- Ende mit Return 

- lösche Zeichen mit shift u. space 

F8 Lösche Grafikbildschirm mit (Nachfrage) 

€ Zeichne Kreis Mittelpunkt: vorletzt gekennzeich- 
neter Punkt. Radius: von Mittelpunkt bis zuletzt ge- 
kennz. Punkt 

shift C Lösche Kreis (siehe hierzu auch C) 

€ Zeichne oval Mittelpunkt: 3letzt gekennz. Punkt 
größter Y-Wert: 2letzt gekennz. P. 

größter X-Wert: zuletzt gekennz. P. 


shift O Lösche Oval (siehe hierzu auch O) 

F Fülle Kreis aus (siehe hierzu auch unter C) 

shift F Lösche Kreis mit Inhalt (siehe hierzu auch C) 
L Fülle Oval aus (siehe auch unter O) 

shift L Lösche Oval mit Inhalt (siehe auch O) 


-P Zeichne Parallelogramm mit den 3 zuletzt gekenn- 


zeichneten Punkten als Eckpunkten (auf Reihenfolge 
achten!) 
P Lösche Paralellogramm (siehe auch unter P) 
I Invertierung des gesamten Bildschirmes 
shift Zeichenstelle mit Cursorposition invertieren 
S Schrittweitenumschaltung (Linien durchgehend oder 
angedeutet) 
D (0-9) Definiere Punkt Nr. (O-9) mit Koordinaten 
Cursorposition 
(0-9) Setze Cursor an definierten Punkt 
H Setze Cursor an Hälfte der Strecke zwischen den 
beiden zuletzt gekennzeichneten Punkten 
shift Q (1-8) Wähle Zeichenfarbe für ganzen Bild- 
schirm 
Q (1-8) Wähle Zeichenfarbe für Schreibstelle mit 
CRSR Position 
W Wähle Farbe für Hintergrund 
- Tastendruck - Farbe gleich Farbe plus | 
- Ende mit return 
shift W Wähle Farbe für Bildschirmrand (siehe auch 
W) 
T Tausche Bildschirm und Tauschspeicher aus 
shift T Bildschirm gleich Bildschirm plus Tausch- 
speicher 
YSpeichere Bildschirm in Tauschspeicher ab 
shift Y Speichere Tauschspeicher nach Bildschirm 
E Verlassene Grafikmodus (mit Nachfrage) 
CRSR-Tasten (Ver-)setze Cursor um eine Schreibstelle 
in besagte Richtung 
RETURN Kennzeichne Punkt 

Joystick 
Fire Kennzeichne Punkt 
0, u, I, r Bewege Cursor (langsam) 
o,u, r, 1& Fire Bewege Cursor (schnell) 
Besonderheit: 
Einige Zeichenfunktionen können durch Druck aufdie 
Commodore-Taste abgebrochen werden. 





Survivalwvc-o mit 8K) 


‚Sie sind der einzige Überlebende eines 
‚Flugzeugabsturzes in der Wüste und Sie 
müssen die nächste Stadt erreichen. Aus 
dem brennenden Flugzeugwrack konnten 
Sie noch eine gewisse Ausrüstung ber- 
gen. 





Jetzt müssen Sie durch die sengende Hitze der Wüste 
gehen und Entscheidungen treffen. Hoffentlich auch 
die Richtigen! 

Hinweise: 

a) Sie können maximal 20 Liter Wasser transportieren. 
b) Jeder Liter Wasser, den Sie mehr trinken, als Sie 
müssen, bringt Sie dem Ziel näher. 

c) Beachten Sie die Funktion der Funktionstasten Fl 
und F3 bei Ihren Entscheidungen: Fl - Ja, F3 - Nein 


Programm-Listing auf Seite 33 








COMMODORE VC-20 


STAR TRAMP wc20 mit ı6K) 





Ziel des Spieles ist es, einen bestimmten Betrag in Geld 
zu erwirtschaften. Die Höhe dieses Geldbetrages wird 
am Anfang vom Spieler festgesetzt. Es gibt zwei Mög- 
lichkeiten, Geld zu verdienen. Entweder man befördert 
Fracht von einem Planaten zum anderen oder man er- 
kundet unerforschte Sonnensysteme mit dem Ziel, 
einen Planeten zu entdecken und eine Prämie zu 
kassieren. 

Am effektivsten ist es jedoch, wenn man beide Mög- 
lichkeiten betreibt. Alle Informationen, die man benö- 
tigt, können vom Computer, der hier die Rolle des Bord- 
computers des eigenen Raumschiffes vertritt, abgefragt 
werden. Hierzu werden verschiedene Menüs angebo- 
ten. 


Der Verlauf eines Frachttransportes sieht meist so aus: 
1.) Bestimmung des Zielplaneten. Hierbei spielen fol- 
gende Faktoren eine Rolle: 

a) Gewinn: Wieviel Geld bekommt man für die Ware 
auf dem Zielplaneten? (Frachtpreise) 

b) Entfernung: Lohnt sich der Transport zu den Pla- 
neten in Bezug auf die Entfernung? Ausserdem: Hat 
man genug Energie für einen Sprung, oder muß die 


Strecke in Etappen geflogen werden? (Galactic Map: 


Entfernung, Energieverbrauch). 
c) Liegen auf der Strecke unerforschte Sonnensysteme, 
die man erforschen kann? (Prämie). 


2.) Vorbereitungen für den Flug (Raumsprung): 
a) Fracht kaufen 


26 Homecomputer 








b) Energie-Vorrat erneuern 

C) Bordcomputer mit Ziel programmieren (Koordi- 
naten siehe Galactic Map). 

d) Muß noch etwas repariert werden? 


3.) Der Flug: 

Hierbei gibt es nichts zu tun. Es können jedoch gele- 
gentlich sehr unangenehme Zwischenfälle auftreten. 
4.) Der Zielplanet: 

Wenn Sie gelandet sind, können Sie die Ware ver- 
kaufen, wenn Sie den Preis für angemessen halten, da 
sich die Preise während des Fluges ändern. 


Hinweise: 

a) Geben Sie die Koordination in der GalacticMap und 
beim programmieren des Bordcomputers mit 3 Ziffern 
an. 

b) In irgendeinem unerforschten Sonnensystem ist der 
Planet des ewigen Lebens. Wenn Sie Ihn finden, sind 
Sie sofort Millionär und haben das Spiel gewonnen. 
c) Wenn möglich immer kleine Raumsprünge machen. 
Der Energieverbrauch steigt im Quadrat zur Entfer- 
nung. 

d) Die bewohnten Planeten sind in der Galactic Map 
grün gekennzeichnet. Am rechten Bildrand sind die 
Abkürzungen für die Namen der Planeten auf gleicher 
Höhe der Planeten. 

(Ausnahme: Kürzel für Arkon ist AK). 


Viel Glück!!! Programm-Listing auf Seite 38 
September 1983 


Vier Spitzenbücher für 
VC-20 und Commodore 64 


Wer tiefer in Geheimnisse und 
Fähigkeiten des Commodore VC-20 
eindringen möchte, muß sich mit 
der Programmierung in Maschinen- 
sprache befassen. VC-20 INTERN 
bietet hier eine wertvolle Unter- 
stützung. Neben einer Einführung 
in die Programmierung in Maschi- 
nensprache und Assembler enthält 
VC-20 INTERN ein ausführlich 
dokumentiertes ROM Listing, die 
Belegung der Zeropage und wei- 
terer wichtigerBereichesowie über- 
sichtliche Zusammenfassungen der 
Routinen des BASIC Interpreters 
und des VC-20 Betriebssystems. 
Damit ist VC-20 Intern für jeden 
interessant, der sich näher mit der 
Maschinenprogrammierung des 
VC-20 auseinandersetzen möchte. 


VC-20 INTERN, 
1983, ca. 140 Seiten, DM 49,- 


64 INTERN erklärt detailliert Archi- 
tektur und technische Möglichkei- 
ten des Commodore 64, zerlegt mit 
einem ausführlich dokumentierten 
ROM-Listing das Betriebssystem 
und den BASIC-Interpreter, bringt 
mehr über Funktion und Program- 
mierung des neuen Synthesizer 
Chips, beschreibt Interfaces und 
Anschlußmöglichkeiten, führt in 
Assembler und Maschinenpro- 
grammierung des Commodore 64 
ein, erklärt detailliert die hochauf- 
lösende Graphik und ihre Program- 
mierung, zeigt die Unterschiede 
zwischen VC-20 und Commodore 
64 und gibt Hinweise zur Um- 
setzung von Programmen. Zahl- 
reiche Blockdiagramme und lauf- 
fertige Beispielprogramme runden 
das Buch ab. 64 INTERN ist bereits 
über 10000mal verkauft und liegt 
jetzt in überarbeiteter und erweiter- 
ter 2, Auflage vor. Dieses Buch 
sollte jeder 64-Anwender und 
-Interessent haben. 

64 INTERN, 2. überarbeitete und 
erweiterte Auflage, 

1983, ca. 300 Seiten, DM 69.- 
















Angerhausen - Englisch 


vo-20 


Ausführlich dokumen- 
tiertes ROM-Listing 
mit einer Einführung in 
die Maschinen- 
programmierung 





EIN DATA BECKER BUCH 


Angerhausen : Becker 
Englisch :Gerits 


4 


intern 





Das große Buch zum 
Commodore 64 


EIN DATA BECKER BUCH 






































| Angerhausen - Riedner 
| Schellenberger 


VC-20 


Tips & Tricks 


| 
Eine Fundgrube für den 
VC-20 Anwender 


EIN DATA BECKER BUCH 

















Angerhausen : Englisch 
Gerits 


64 


Tips & Tricks 


| Eine Fundgrube für den 
\ Commodore 64 Anwender 





‚EINDATA BECKER BUCH 












































VC-20 TIPS & TRICKS enthält unter 

anderem 

® detaillierte Beschreibung der 
Programmierung von Sound und 
Graphik des VC-20 (z.B. mehr 
über die Möglichkeiten des 
Supererweiterungs-Moduls) 

® mehr über Speicherbelegung, 
Speichererweiterung und die 
optimale Nutzung der einzelnen 
Speichermodule 

@ BASIC-Erweiterungen zum 
Eintippen 

® umfangreiche Sammlung von 
Poke's und anderen nützlichen 
Routinen 

® zahlreiche interessante Beispiel- 
und Anwendungsprogramme, 
komplett dokumentiert und fertig 
zum Eintippen, z.B. eine Datei- 
verwaltung. 

VC-20 TIPS & TRICKS isteine echte 

Fundgrube Jür jeden VC-20 

Anwender. 


VC-20 TIPS & TRICKS, 
1983, ca. 200 Seiten, DM 49,- 


64 Tips & Tricks enthält unter ande- 

rer 

® eine umfangreiche Sammlung 
von POKE's und anderen nütz- 
lichen Routinen 

@ mehr über CP/M auf dem Com- 
modore 64 

® zahlreiche ausführliche doku- 
mentierte Programme, komplett 
fertig zum Eintippen (z.B. Sor- 
tieren von Strings, BASIC-Er- 
weiterungen, farbige Balken- 
graphik, Zeichendefinition incl 
deutschem Zeichensatz, 3D 
Graphik etc.) 

© mehr über Anschluß- und Erwei- 
terungsmöglichkeiten durch 
User Port und Expansion Port 
(z.B. Commodore 64 an Stereo- 
anlage) 

@ hochauflösende Graphik und 
Farbe für Fortgeschrittene 

64 Tips & Tricks isteine echte Fund- 

grube für jeden Commodore 64 

Anwender. 

64 TIPS & TRICKS, 1983 

ca. 250 Seiten, DM 49,- 


Klar, verständlich, in deutscher Sprache und mit vielen Bespielprogrammen. 


Mit DATA BECKER BÜCHERN machen Sie mehr aus Ihrem Computer. 





Wir liefern nicht nur VC-20 und Commodore 64, sondern 
auch ein riesiges Angebot an Software, Peripherie, Zube- 
hör und Literatur dazu. Mehr darüber enthält auf 80(!) Seiten 
unser aktuelles VC-INFO 2/83, z.B. Compiler, IEC-Bus mit 
BASIC 4.0, die neuen EPSON-Drucker, die ersten Steck- 
module für den 64, neue Programme aus aller Welt, CP/M für 


DATA BECKER 


Merowingerstr. 30 : 4000 Düsseldorf - Tel. (0211) 312085 - im Hause AUTO BECKER 


ab 1. 8. '83: (0211) 310010 


In unserem 800 qm Ausstellungszentrum in Düsseldorf führen wir Commo- 
dore, DEC; HP, IBM, Osborne, SIRIUS und andere gute Computer. 
Über 30 geschulte Spezialisten freuen sich auf Ihren Besuch. 


den 64, neue Fachliteratur und vieles andere 
mehr. dazu wieder viele Programmiertricks 
und -tips. Am besten sofort 
gegen DM 3,- in Briefmarken 
anfordern oder uns 

in Düsseldorf besuchen. 
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ANA MeNm 


So FOKESS, SE: FORESS, 
FORRE4E, BE POKESSEE 
DIMe@4>.FimCab, PAR: 

ad FORI=ATO3313: PÜKES 
FORIT=1TO4: Rermremer 
FÜRI=HTIEIF: FÜKERES 
FÜRI=Z1FTO24N: IFI=Z2ITHE 

g FOKEI., ZA: NEHT 

2 OGATOSEE 
FORI=S1TO4:PÜKEFCTDSFER 
FETUFH 
Yalsa-T:cH a » 

V-ck-INTEH 

IFTZALSPORTSRORR rs 
Talsa-tilH=INTEr 


IFR= 


jeLnls| 
225 
310 
259 


253 


IFWZASSORT<EIDR 

Y=1l99-T:CH=INTET/1E 

BIRST-EN-INTE WDR 
TERORMZFSO | 


Bela] 
az 
44 
4a 
EI 
4im 
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Klett le139:ME=" "GOSLUENE 
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HEAT 
RETUFH 
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HEMT 
RETURH 
IFUEZH"S"THEHFFEO 
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IFS2=4THEH! 4 
IFUECZ"D" THEMGESEI 
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Ikea: Ir=Tl RETURN 
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ETAE: IFME="" THENS- 


TOR: BETHEIMERT:RETURM 
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id IFACLISBTHENFRINT" EIN KOMPRSE" 
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IF=s=7THEHPRINT"EINE PATREOHE" 
IF#S=3THENFRINT"DIE FISTOLE" 
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:IFURCZL, 


:IFURLZI,EE 


Eu PK et 


Las 


IFURLZI. ZZI<CHATHEHZIEE 


1, ZZ >ATHENZIFG - 
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3048 GOSUBF :GOSUBT 
261@ FRINT"SCMIT WIEVIEL GELD WOL- LEN SIE SICH AUS DEM GESCHAEFTSLEBEN ZU-" 
3629 POKEL+1. 22 PRINT"RUECKZIEHEN?" 
3530 FRINTMMIRE SOOSEACREDITS." PRINT SEE FSORACREDITS, "PRINT" SR AAAASRE 
DITS," 
3649 FRINTTWE4BELZSOBOCREDITS. " : PRINT" AUSIEBISOBOBCREDITS. " 
3643 FRINT! MSESI7SARACREDITS. " PRINT" TERODBABACREDITS. ODER" 
59 PRINT" MSRRESOBOACRENITS. " 
3680 PRINT"MSEBEN SIE BITTE JETZT EINE ZAHL EIN." :GOSUBS 
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3638 IFZ=STHENR=2I002:GOTOSTSR 
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4048 PRINT"MUER FREIS BETRAEGT" PRINTFRACFLI"SÜLAR CREDITS. 
4038 PRINT"RIBE TE: GOSLUBS GUSLUET 
4529 LFCR>=RTHENABGEG 
4529 FOKEL+1, 222: PRINT" IWINFORMATLONEN: * PRINTSALAFRACHTPREISE" 
4520 FRINT' EWEHERSIEFREISE" PRINT" BSBENTFERNUNG ZU DEN PLANETEN" 
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PLITHENSESE 
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ı POKEL-1 Ur, i ARZi=1TOEE:MEKTZL.Z:FOKEL EN FOREL- 1. GISLES:GETE: 
IFEL=" "Ar STHENIE: Sa 
& STHEHZZESE 
PI ARTEN ENTEDMMER,. "TEIPOKESI 
Er OGOSUEBS: ZSFHANSE 3450: IF EUTHEHZ=EU 
"SIE HABEH DAFLER"Z:FRIHTITTEHERGIERINHEITEH BE KOETIGT. 


:FOEEL.: 


"u PRINTS F’5SIE WURDEN AUF DER 


STTOR AUSCE-PRIICHEH. OLLER © 


"I THENE 
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Zeichengenerator tür Atari 


Zeichengeneratoren wurden schon für 
mehrere Microcomputer in Homecom- 
puter veröffentlicht. Doch noch keiner 
für den Atari. Dies wollen wir in dieser 
Ausgabe nachholen. 


Wenn man das Programm laufen läßt fragt der Com- 
puter zunächst, ob er den jetzigen Zeichensatz über- 
schreiben soll.Eine dumme Frage, könnte man denken. 
Natürlich soll der Zeichensatz überschrieben werden, 
sonst hätte man wohl kaum das Programm geladen 
oder eingetippt.Es hat jedoch seine Vorzüge erst eine 
Abfrage zu machen. Denn wenn man z.B. einen ganzen 
Zeichensatz eingegeben hat und dann aus versehen an 
die BREAK-Taste kommt und nicht weiß, wie man 
wieder einsteigt, ist es schlecht, wenn der Computer den 
mühevoll eingetippten Zeichensatz bei erneutem Start 
automatisch überschreibt. Das gleiche könnte einem 
auch beim Abspeichern oder Einlesen passieren, wenn 
man z.B. Bandsalat hat und mit SYSTEM RESET 
unterbrechen muß. Da hilft nämlich auch kein CONT 
mehr. 

Nach dem Überschreiben zeigt sich dann das Menü. 
Das einzige zu Erläuternde wäre hier die Option a: altes 
Zeichen neu generieren. Der Computer fragt nach dem 
zu ändernden Buchstaben oder Zeichen. Die ent- 
sprechende Taste braucht nur gedrückt zu werden. 
Danach zeigt der Computer die Matrix des gewählten 
Zeichens vor. Der neue Buchstabe, der daraus entste- 
hen soll, muß nun Byte für Byte als Bitmuster einge- 
geben werden. Ein eingeschaltetes Bit wird dabei durch 
einen großen Punkt (CTRL T) gesetzt, ein ausge- 
schaltetes mit einem normalen Dezimalpunkt. 

Ist der Buchstabe neu definiert und ist keine Korrektur 
nötig, springt der Computer wieder ins Menü. 
Reverse-Zeichen lassen sich nicht ändern. Dies wäre 
auch unnötig, da der Atari diese Zeichen aus den ”nor- 
malen” bezieht. Mit anderen Worten: Ändert man die 
normalen Zeichen, ändert man auch die Reverse- 
Zeichen. 


rem zeichengenerator 
rem (c) 1983 by: 

rem udo hilwerling 
rem 441@ warendorf 1 
rem 


198 rem =» hauptprogramm HRHHHHHHHRRHEERN ' 


11% rem 


128 poke 82,@:poke 712,peek(71ß):poke 752,1 
zeichengenerator"!" 


138 print chrg(125) ;" 
148 print " 
159 print 


In Zeile 1030 wird das Speicher-ROM zugewiesen. Sein 
Inhalt (57344 gleich $E000 markiert die Speicherstelle 
für den Anfang der Verschlüsselung des Atari-Zei- 
chensatzes (1k Länge). 

In der darauffolgenden Zeile 1040 wird das Speicher- 
RAM zugewiesen. Mit PEEK (106) erhält man beim 
Atari die aktuelle Anzahl an RAM-Pages. Die obersten 
12 davon beansprucht der Basicmodul für sich; sie sind 
für Programme nicht verfügbar. Der Speicher RAM 
nun markiert die erste der letzten vier im BASIC-RAM 
verfügbaren Pages. 

Nun wird der Atari-Zeichensatz vom ROM ins RAM 
verschoben, wo er veränderbar wird. 

Schauen wir uns das "UPRO Ausgeben” an. Hier wird 
in Zeile 3130 in Speicherstelle 756 der Inhalt des 
Speichers RAM gesetzt. In Speicherstelle 756 wird beim 
Atari markiert, auf welcher Page die Buchstabenver- 
schlüsselung beginnt. Normalerweise ist das Page 224. 
Setzen wir aber den Inhalt vom RAM dort ein, setzen 
wir diesen Pointer genau auf die Stelle, wohin wir eben 
den Zeichensatz verschoben haben. Mit POKE 756,224 
setzt man dann den Pointer wieder aufs ROM. 

Zum Ändern eines Zeichens zeigt der Computer dessen 
8x 8 - Matrix vor. Die Auflösung eines Bytes in seine 
Bits - und damit die Grundvoraussetzung für das Zei- 
gen der Matrix - findet sich in den Zeilen 2370 - 2450. 
Der umgekehrte Vorgang, nämlich die Umrechnung 
der Bits in ein Byte, ist beim Atari etwas schwieriger zu 
bewältigen. 

Das n-te Bit hat den Wert 2 hoch n-1. Doch leider kann 
der Atari nicht gescheit potenzieren. So erhältman bei 2 
hoch 2 den Wert 3.999999999. Diesen Rundungsfehler 
muß man korrigieren. Dies geschieht in Zeile 2620. Die 
Angleichung muß aber nur dann vorgenommen wer- 
den, wenn der Exponent (in diesem Falle j) ungleich 7 
ist, da bei 2 hoch 7 der Atari den richtigen Wert 
ausgibt:128. 

Im Listing sind Reverse-Zeichen unterstrichen darge- 
stellt. Des weiteren ist es in Kleinschrift gehalten, muß 
aber im Caps-Upper-Mode eingegeben werden. 


162 rem 

178 gosub 1@@@:rem initialisierung 
189 gosub 2@ßßg:rem generator 
198 gosub 33@@:rem ende 

228 rem 

21Q@ end 

228 rem 

239 rem 

#* ende hauptprogramm A#XH#XKHHE 
249 rem 

996 rem 





997 rem ++ upro initialisierung ++ 


998 rem 
999 r 
188 


® open Z1,4,2,"k:" 
1042 aim x8(1),dualg(8) 


1922 rem 
1030 rom=5734 


iM 
1242 ram=peek(196)-16 


1950 rem 


1968 print '"moechten sie den jetzigen zeichensatz" 
12878 print "ueberschreiben ? ja/nein! 

1089 get #1,xx:x$=chr$(xx) 

1898 if xg="n'" then 113 

110@ if x8C>"j" then 198g 

111g print:print "einen moment, bitte." 

1128 for i=@ to 1@23:poke ram#256+i,peek(rom+i):next i 


1138 rem 
1149 return 
115@ rem 


116@ rem ++ ende initialisierung ++++++ 


117@ rem 
1958 rem 
1968 
1978 
198% 


rem 


print chr8(125);" menue auswah!!" 


print ! 
print 


print !t optionen 


print:prin 


t 


print '' a_ altes zeichen neu generieren":print:print 


print '"'_e_ zeichensatz von datasette einlesen'":print:print 
print "_8z neuen zeichensatz abspeichern":print:print 
print "_g derzeitigen zeichensatz auf dem 


print "<q quittieren":print:print 


print " 


rem 

32 xB="a! 

if x8='e! 

if x8="s8" 

if xd='tg" 
Bit xd=N"g!" 

goto 2000 


rem 


bitte waehlen sie an !! 
get £Z1,xx:x3=chrd(xx) 


then 
then 
then 
then 
then 


gosub 230% 
gosub 2708 
gosub 290% 
gosub 310% 
return 


rem ++ ende generator ++++++++++++ 


rem 
rem 
rem 
rem 
rem 
rem 


print chr$(125):print:print 
print "welches zeichen wollen sie aendern ?'!! 
2320 get f1,xx:x8=chrd(xx):print x3:print 
2330 if xx>=32 and xx<=95 then b=xx-32 
234 if xx3=Q and xx<@=31 then b=xx+64 
2350 if xx>=96 then b=xx 


bildschirm ausgeben":pri 





2368 rem 

2378 Quald=t, nern." 

2380 b=rom+8xb 

2390 for i=@ to 7 

2428 p=peek(b+i) 

211@ for j=8 to 1 step -1 

2428 if p/&%Kpint(p/2) then duald(j,j)="e":goto 244g 
2438 qAualß(j,j)=n.n 

244 p=int(p/2):next j 

245@ print " ";dualg:next i 

2L6ß rem 

247@ print:print "wollen sie es wirklich aendern ? ja/nein! 
2h8ß get A1,xx:xd=chrä(xx) 

eu9Q if xds''n" then return 

2500 if xBK>"j" then 2489 

2518 b=b-rom:b=ram#256+b 

2329 poke 752,@:print chr$(28);chr$(28) ;" 

v 


2530 for i=1 to 8:position 25,5+i:print ".o.e...."ınext i 
2e54@ position 12,9:print "wird zu -—p" 
2559 rem 
2568 for i=@ to 7 
257% position 24,6+i:input dualg 
2589 position 24,6+i:print !' " 
2598 byte=g 
269 for j=® to 7 
2619 if quald(8-j,8-j)Ky'e" then 2649 
2620 if j<7 then byte=byte+int(24j)+1 
2638 if j=7 then byte=byte+24j 
2649 next j:poke b+ti,byte:next i 
265@ poke 752,1:print:print "korrektur erforderlich ? ja/nein" 
2669 get #1,xx:x8=chrä(xx) 
2678 if x8='"n!" then return 
2680 if x82""j" then 2668 
2699 print:goto 2528 
2691rem 
2692 rem == ende generieren 
2693 rem 
2695 rem 
2696 rem 
2697 rem == upro einlesen == 
2698 rem init 
2699 rem 
2788 print chrd(125):print:print 
2712 print "legen sie die kassette mit den daten":print 
2722 print "in den rekorder ein und druecken":print 
2738 print "sie _play .":print 
2742 print " fertig ? ja" 
2788 get Al,xx:xd=chrä(xx) 
2790 if x8<>"j" then return 
2. ; .m ; te Ne+elle ö . ; mt u 
en chr8(28);'"druecken sie return .":open #2,4,8,"c:":print:print "ok 
2819 for i=ß to 1023:input #2,byte 
2829 poke ram#256+i,byte:next i 
2839 close Z2:return 
2835 rem 
2849 rem == ende einlesen 
2845 rem 
2858 rem 
2869 rem 





2879 rem == upro speichern == 


2988 print chr3(125):print:print 
2912 print "legen sie die kasette fuer die daten":print 
2922 print "in den rekorder ein und druecken':print 
2930 print "sie _play & _record .":print 
29,8 print " fertig ? ja" 
298ßget Zi1,xx:x8=chrf(xx) 
2990 if xd<2"j" then return 
3208 print chrd(28);"druecken sie _return „":open #2,8,@,"c:":print:print "ok - 
Schreibe." . 
3010 for i=@ to 123:byte=peek(ramx256+i) 
3028 print Z2,byte:next i 
3030 close #2:return 
3035 rem 
3042 rem ende speichern 
rem 
rem 


rem 

print chr3(125);" 

print " 

print 

poke 756,ram 

for i=@ to 255:print chrd(27);chrd(i);" ";:next i:print 
print '!" druecken sie irgendeine taste _" 


get Al,xx:poke 756,224:return 
ren 
rem == ende ausgeben 


print ehr#(125) 
print "wollen sie den zeichensatz vorm ueber-!" 
print "schreiben schuetzen ? ja/nein" 
get #1,2x:x8=chrö(xx) 
if x8=s''n" then 34208 
if x8c2"j" then 333Q@ 
poke 742,ram:print "ok.":print 
print "damit der bereich geschuetzt bleibt," 
338@oprint "muss nun nach jedem _system reset '' 
3399 print "ein 'poke 742,";ram;"'" erfolgen." 
3L9d print :print "umschalten auf neuen zeichensatz mit!" 
5412 print "'poke 756,";ram;'"!,":print 
3,28 print "umschalten auf alten zeichensatz mit! 
3438 print "'!poke 756,224'.":print 
3hLß print "copyright 1983 by:!! 
3,58 print " udo hilwerling!' 
3L6@ print " zumlohstr. 21!" 
3478 print " 4418 warendorf 1" 
3L8B close fl:poke 752,9 
3L9@ return 
350% rem 
Z6MO rem xx 5198 bytes x 





Kugel-Labyrinth 


In diesem Spiel geht es darum, mit der Hilfe einer 
Sprungfeder möglichst viele Kugeln in verschiedene 
Fächer zu schießen. Das ganz linke und rechte Fach 
kann jeweils2 Kugeln aufnehmen. Alle anderen Fächer 
können jeweils 1 Kugel aufnehmen. Zum Programm- 
beginn bekommen Sie 18 Kugeln, müssen jedoch nur 14 
plazieren. Dies istjedoch relativ schwierig, da die Kugel 
durch ein Feld von Dreiecken abgelenkt wird. Durch 


REM 
REM 
REM 
REM 
REM 
REM 
HOME : 


RER 
* KUGEL-LABYRINTH * 
* * 
* (C) BEI F.BRALL * 
RÜHRT RER 
PRINT : PRINT " 
VTAB 15: PRINT 


TTE TASTE DRUECKEN 
GET E$: IF E$ = "" THEN 98 


*%*%*%# KUGEL-LABYRINTH ###x*": 
(C) 25.7.8535 BEI FRANK BRALL" 
"STEUERUNG UEBER PADDLE 8 !": 


eine Maschinenroutine, die in Data-Anweisungen ent- 
halten ist, sind mehrere Ton-Effekte eingebaut. Die 
Sprungfeder wird mit Paddle 0 und das Loslassen mit 
Button 0 simuliert. Das Programm benötigt 48k Ram. 
Durch das Einfügen folgender Zeile läuft es jedoch 
ebenfalls mit 24k Ram. 

1 HIMEM: 16384 

Und nun zieh die Feder !!! 


PRINT : PRINT " 


PRINT =: FRINT =: PRINT "BI 


DATA 174,8,3,172,1,3,173,2,3,32,17,244, 164,229, 177,38,37,48,141,3,3,9 


& 


DATA 3,9,8,9,21,9,37,90,45,12,12,36, 28,28, 63,39, 3@,54,14,14,9,45,45,45 
‚229, 28,28, 28,28,39,390,390,30,30,45,5,8,13,4,8,72,4,128, 128, 224, 27,128 
‚128, 224,219,179,147,27,158,146,22,9,63,@ 


DATA 172,98,9,174,2,0,169,4,32,168, 


239,206,1,9, 208, 231,96 
FOR I = 772 TO 878: READ 
POKE 232,26: POKE 233,93 
HGR2 : HCOLOR= 3: SCALE= 1: 
FOR Y = 5@ TOD 16@ STEP 48 
FOR X = 26 TO 25@ STEP 2@ 
DRAW 2 AT X,Y 
NEXT X 
FOR X = 36 TO 238 STEP 28 
DRAW 2 AT X,Y + 28 
NEXT X,Y 
HPLOT #,8 TO 279,8 TO 279,191 TO 
FOR X = 31 TO 248 STEP 28 
HPLOT X,178 TO X,191 
NEXT X 
HPLOT 279,38 TOD 279,188 
HPLOT 268,58 TO 268,191:KP = 68 
FOR Y = 68 TO 191 STEP 8 
DRAW 1 AT 264,Y: NEXT 
HPLOT 269,58 TO 279,38 
HPLOT 26@,@ TO 279,28 

Y= PDL (M:yM = Yv: 
IF Y > 185 THEN Y = 185 
IF PEEK (49249) = 255 THEN 478 
FOR X = 274 TO 275 
HPLOT X,Y TO X,198 
HCOLOR= 8: HPLOT X,5@ TO X,Y - 1: 
NEXT X 
XDRAW 1 AT 274,Y - 2 

0O= PDL (@ 

IF PEEK (49249) > 127 THEN 478 
IF O > YM THEN IF DO - yYM 


A: POKE 


I,A: 


IF Y < 62 THEN Y 


252,173,48,192,232,298,253,136,298, 


NEXT I 


ROT= #8 


5,191 TO 9,8 


68 


HCOLOR= 5 


< 4 THEN 418 





IF O< YM THEN IF YM- 0< 4 THEN 418 
XDRAW 1 AT 274,Y - 2 
G0TO 338 
FOKE 9,188: POKE 1,1: CALL 853 
FOR Y = Y TO 26 STEP - 1 
DRAW 1 AT 274,Y: HCOLOR= 8 
DRAW 1 AT 274,Y: HCOLOR= 3 
NEXT Y 
POKE 9,2: POKE 1,49: CALL 853 
FOR X = 274 TO 263 STEP -1 
SOY=Y-1 
550 DRAW 1 AT X,Y: HCOLOR= 8 
568 DRAW 1 AT X,Y: HCOLOR= 3 
578 NEXT X 
588 FOR X = X TO 268 - YM STEP - 
59@ DRAW 1 AT X,Y: HCOLOR= @ 
698 DRAW 1 AT X,Y: HCOLOR= 3 
61@ NEXT X 
628 X=X,/ 10 
630 = INT (0: IFX-XC < 8.8 THEN XC=xXc - 1 
648 KXC#1DM +1:X=X x 10 
658 FOR X = X TO XC STEP -1 
EBY=Y+1 
678 DRAW 1 AT X,Y: HCOLOR= 9 
688 DRAW 1 AT X,Y: HCOLOR= 3 
6998 IF X < 18 THEN X = XC: NEXT X: G0TO 19198 
7@9 NEXT X 
718 DRAW 1 AT X,Y 
728 IF Y > 188 THEN TR = TR + 1: GOTO 1958 
738 FOR I = 1 TO 2@: NEXT I 
748 HCOLOR= @: DRAW 1 AT X,Y: HCOLOR= 3 
75@ GOSUB 788 
768 Y = Y + 1: 6010 719 
778 GET E$ 
788 REM x*x*%* UEBERPRUEFE KOLLISION *** 
7a Xı=X 
898 XH = INT (X1 / 256):XL = X1 - (XH * 256) 
819 POKE 768,XL: POKE 769,XH: POKE 779,Y + 4 
826 CALL 772: IF PEEK (771) = & THEN RETURN 
8308 IF Y > 17@ THEN GOTO 1998 
848 2 = INT CRND (1) * 20) + 2 
856 POKE @,Z: POKE 1,5: CALL 853 
868 Z = INT ( RND (1) * 2) 
878 ON Z GOTO 948 
888 FOR X1=X TOX-9STEPr - 
BaY=Y+1 
998 DRAW 1 AT X1,Y: HCOLOR= # 
918 FOR I = 1 TO 1@: NEXT I 
928 DRAW 1 AT X1,Y: HCOLOR= 3 
936 NEXT X1:X = X1: RETURN 
948 FOR XL =X+2T0X+9 
958 Y=Y+1 
968 DRAW 1 AT X1,Y: HCOLOR= 8 
978 FOR I = 1 TO 1@: NEXT I 
9898 DRAW 1 AT X1,Y: HCOLOR= 3 
998 NEXT X1:X = X1: RETURN 
1898 REM *** KUGEL ZERPLATZT x*** 
1218 DRAW 3 AT 19,Y 
1926 POKE 9,1: FOKE 1,99: CALL 853 
1838 FOR I = 1 TO 5@@: NEXT I 
1948 HCOLOR= 8: DRAW 3 AT 19,Y 
1958 REM x*%*%* NAECHSTE KUGEL HOLEN *%** 
1968 POKE 9,29: POKE 1,19: CALL 853 
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19878 POKE 8,48: POKE 1,5: CALL 853 

1988 POKE 9,58: POKE 1,5: CALL 853 

108924 IF KP > 191 THEN 1248 

1128 IF TR = 14 THEN 1148 

1118 HCOLOR= @#: DRAW 1 AT 264,KP: HCOLOR= 3 

1125 KP=KP +8 

1158 GOTO 339 

1148 FOR I =1 703 

115@ PFOKE #,2@: POKE 1,18: CALL 853 

1168 POKE 9,38: FOKE 1,8: CALL 853 

1178 POKE 8,4@: POKE 1,5: CALL 853 

11898 POKE 9,58: POKE 1,3: CALL 853 

1198 POKE 9,68: POKE 1,7: CALL 853 

12688 NEXT I 

121@ HOME 

12268 TEXT : VTAB 5: PRINT "SIE HABEN DAS UNGLAUBLICHE VERWIRKLICHT": PRINT 
=: PRINT "ICH GRATULIERE ZU DIESEM ERFOLG !" 

1238 GOTO 1288 

1244 HOME : TEXT : VTAB 5: PRINT "SIE HABEN ALLE 18 KUGELN VERSCHOSSEN": PRINT 
= PRINT "UND ERZIEHLTEN "TR" TREFFER." 

12598 VTAB 17 

1268 IF TR > 9 THEN PRINT "DAS IST EIN GUTES ERGEBNIS !" 

1278 IF TR < 1@ THEN PRINT "UEBEN SIE NOCH EINIGE MAL !" 

1286 VTAB 23: PRINT "NOCH EIN SPIEL ? "3 

12948 GET E$: IF E$ = "J" THEN RUN 198 

13989 HOME : PRINT "BIS BALD !" 
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Gärtner 


Mit 3 Tasten (A, D, G) steuert man ein kleines Männ- 
chen mit Gieskanne. Es ist Ziel des Spielens möglichst 
schnell alle Pflanzen über eine bestimmte Höhe wach- 


schrumpft die Pflanze. Eine weitere Schwierigkeit be- 
steht darin, daß nur eine bestimmte Wassermenge in 
der Gießkanne ist und diese deshalb laufend gefüllt 


sen zu lassen. Dies ist nur durch gezielte Bewässerung | werden muss. 


möglich. Zu viel oder zu wenig Wasser und schon 


(*$S+%*) (*SWAPPING FUER LANGES PROGRAMM*) 


PROGRAM GRAFIK3 (#* (C). BEI FRANK BRALL *) 
USES 
TURTLEGRAPHICS, APPLESTUFF3 
CONST 
XMAX 
YMAX 
TYFE 
SHAPE =PACKED ARRAY [Li1..YMAX,1..XMAX] OF BODLEAN; 
VAR 
X,Y,RZ,I,O,ZAEHLER : INTEGER; 
MANN :ARRAY [1..8] OF SHAPE;3 
BLUME, FASS :SHAPE5 
XALT, YALT,QALT : INTEGER5 
EINGABE: CHAR5 
BLUMENWASSER, XBLUME „ YBLUME , VERGLEICH : 
GIESWASSER : INTEGER;3 
ENDE :BOOQLEAN;> 
A :INTEGER5 (#ANZAHL DER BLUMEN*) 


=315 
=23; 


(*SHAPE GROESSE*) 


(#EINZELNE BEWEGUNGEN DER FIGUR*) 








ARRAY [1..6] OF INTEGER; 


PROCEDURE UMWANDLUNG (VAR Z:SHAPE3 
S:STRING) 5 
BEGIN 
FOR X:= 1 TO LENGTH(S) DO 
IF (SCX1 =’%X’) OR (SCX] =”*”) THEN ZLY,X] 
ELSE ZLY,X1 :=FALSE; 
Ye=Y-1 
END; 


:=TRUE 


PROCEDURE UMKEHRUNG (VAR Z:SHAPE;5 


A:SHAPE)I 5 





VAR 
u :INTEGER;3 
BEGIN 
FOR Y := 1 TO YMAX DO 
BEGIN 
FOR X:= 
BEGIN 
U 2=(XMAX+1)-X5 
ZLY,UI := ALY,X] 
END; 
END: 
END3 





XMAX DOWNTO 1 DO 





FROCEDURE MANN135 
BEGIN 
2=YMAX35 
(* 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 


X= *) 
{MANNE1]J,” 
{MANNL1J,” 
(MANNEL1],” 


{MANNL1], 


1234567899123456789212345678931 
xx ”)5 

XXXX ”)5 

XXXX wi 

XXXX ”)5 











UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
END; 


(MANNL11, 
(MANNL1], 
(MANNL1], 
(MANNL11, 
(MANNL 11, 
(MANNL1J, 
(MANNEL11, 
(MANNL1], 
(MANNL1], 
“MANNL11J, 
(MANNL1], 
(MANNL1], 
(MANNL1], 
“MANNL11J, 
(MANNEL11J, 
(MANNL1], 
(MANNL1], 
(MANNL11J, 
(MANNL11, 


FROCEDURE MANN23 


BEGIN 

Y ==YMAX3 

UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
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UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 

END; 


(MANNL2], 
(MANNL21, 
(MANNL2], 
(MANNL21, 
(MANNL2], 
(MANNL2], 
(MANNL2], 
(MANNL2J, 
(MANNL2], 
(MANNL2], 
(MANNL2J, 
(MANNL2], 
(MANNL2], 
(MANNL2], 
(MANNL2]J, 
(MANNL21, 
(MANNL2], 
(MANNL2J, 
(MANNL2], 
(MANNL2J, 
(MANNL2], 
(MANNL21, 
(MANNL2J, 


FROCEDURE MANNS;3 


BEGIN 
==YMAX3 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 


(MANNLS], 
(MANNLS1, 
(MANNLS]J, 
(MANNLS1, 
(MANNLSJ, 
(MANNLSJ, 
(MANNLSJ, 
(MANNL31, 
(MANNLS]J, 
(MANNLS1, 
(MANNLZ]J, 
(MANNLZ]J, 
(MANNLZ]J, 
(MANNLS1, 
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’ 
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xx 
XXX 
XXXXX 
XXXXX 
XXXXX 
XXXXXX 
XXXXXX 


XXXXXX ** 
XXXX  Xamae 
XXXX KER% 
XXXXX #888 


XX.XX 

XX XXX 
XX.XX 
XX.XXX 
xx xx 
xx xx 
XXX XXX 


KXXXXXXX 

XXXXXXXX 
XXXXXXXX 
XXXX.XX 


AXXXX.XX 
XX a8 #8’); 
Xaaaaa 7)5 
*ERR ”.).5 
“rr% ”)g 


XXXXX 
XXXXX 


xx 
XXXX 
XXXX 
XXXX 
xx 
XXX 
XXXXXX 
XXXXXXXX 
AXXXXXXXXX 
XX XXXX XXX 
XX XXXX xx 
XX XXXX xx 


XX XXXX xx** 
X XXXX KERRER 
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UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
END3 


(MANNLS], 
(MANNE[S]1, 
{MANNI[S], 
(MANNES3]1, 


{MANNES]1, 
MANNES], 
MANNES], 
{MANNLS], 


PROCEDURE MANN?3 


BEGIN 


Y2=YMAX3 

UMWANDLUNG 
UMWANDLLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLLNG 
LIMWANDLLUNG 
UMWANDLLNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLLING 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLLUNG 
UMWANDLUNG 

END; 


(MANNL71,? 
(MANNL7I,° 
(MANNL7I,” 
(MANNL 71,” 
(MANNL 71,” 
(MANNL7I,° 
(MANNL7I,° 
(MANNL7I,° 
(MANNL7J,” 
(MANNL7I,? 
(MANNL7I,? 
(MANNL 71,” 
(MANNL7I,° 
(MANNL 71,” 
(MANNL7I,° 
(MANNL7I,° 
(MANNL7I,° 
(MANNE7I,? 
(MANNL7I,° 
(MANNL7I,? 
(MANNL7I,? 
(MANNL7I, ° 
(MANNL7I,° 


FROCEDURE FFLANZE; 


BEGIN 

Y 2=YMAX: 

UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLLING 
UMWANDLUNG 
UMWANDLLUNG 
UMWANDLUNG 
UMWANDLLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLLING 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLLNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 
UMWANDLUNG 

END: 


(BLUME, 
(BLUME, ’ 
(BLUME, ’ 
(BLUME, 
(BLUME, 
(BLUME, 
(BLUME, 
(BLUME, 
(BLUME, 
(BLUME, 
(BLUME , 
(BLUME, 
(BLUME, 
(BLUME, 
(BLUME, 
(BLUME, 
(BLUME, 
(BLUME, 
(BLUME, 
(BLUME, 
(BLUME, ® 
(BLUME, * 
(BLUME, ’ 


{MANNE31,” 


XXXX 
XXXX 
XXX 
XXXX 

XXXX 

XXXXXX 

XXXX 

XX.XX 
xxx 


xx 
XXXX 
XXXX 
XXXX 

xx 
XXX 

XXXXX 
KXXXXX 
XXXXXXXX 
KRXXXXXX 
KAXXXXXX 
XXXX XX 
XXXXX.XX 
XXXXX 
XXXXX 
xXXXX 
XXXX 
XXXX 
XX.XX 
XX.XX 
XXXX 
XXX 
XXX XXX 


**%* *r* 
KERRR KEERR 
KERRRE KERRRR 
KERRR #8 
RE *%* ** EZ 2 22 
KEREERER HERR HERE 
KERKHRKHRHRKRHRKRKHRRHURRRRRK 
KERRERER KERE KERERERR 
KERR *%* ** RR 
HERR KEERR 
KERRER KERRER 
KERER KR HEHE 
*%* *%* *%* 
*%* 
** 
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FROCEDLURE WASSERFASS; 

BEGIN 
Y 2=YMAX3 
UMWANDLUNG  ({FASS, KEREERERERERRRERTRE 
UMWANDLLUNG  {FASS, ’ ** ** 
UMWANDLLNG  {FASS, KRRRRRERRRRRRRERERR 
UMWANDLUNG  {FASS, ** *%* 
UMWANDLUNG  (FASS, KRRERKERRKRRRERRRRR 
UMWANDLUNG  {FASS, ** ** 
UMWANDLUNG  (FASS, KERERERRERERKRRKRRRERRR 
UMWANDLUNG  (FASS, ** ** 
UMWANDLUNG  <FASS, KERKRKRRKRRRRRRRRRRRE 
UMWANDLUNG (FASS, ** “x 
UMWANDLUNG {FASS, EERRERREHHRRRRERRRR 
UMWANDLUNG (FASS, ** “x 
UMWANDLUNG {FASS, KERKERRRRRRRRRRRARE 
UMWANDLUNG  {FASS, ** ** 
UMWANDLUNG (FASS, KERKRKKKRRRERKRERER 
UMWANDLUNG (FASS, ** ** 
UMWANDLUNG (FASS, KEREKKRKERRRRRRRRRR 
UMWANDLUNG  (FASS, ** + 
UMWANDLUNG (FASS, KERKRKERRRRRRERERERE 
UMWANDLUNG  {FASS, ** ** 
UMWANDLUNG  «FASS, KARHERERRRREHURKRER 
UMWANDLUNG (FASS, ** *%* 
UMWANDLLUNG  (FASS, KRRKERUERRRRRTRRRRR 

END; 
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FROCEDURE FIGUREN4565 
BEGIN 
UMKEHRUNG (MANNL4I,MANNEL1I2) 35 
UMKEHRUNG (MANNESI,MANNLZIDI: 
UMKEHRUNG (MANNL&],MANNELSII 3 
UMKEHRLUNG (MANNEL81,MANNL7DI 35 
END35 


PROCEDURE RBLUMENANZEIGEN;5 FORWARD; 


PROCEDURE PUNKTE3 

VAR B:STRING; 

BEGIN 
ZAEHLER :=ZAEHLER -15 
IF YBLUME <> VERGLEICH THEN EXIT (PUNKTE)3 
PENCOLOR (NONE) 5 MOVETO (19,1795 
STR (ZAEHLER,O)5 
WSTRING (’PUNKTE: ”’)5MOVETO (19,16%@)5 WSTRING (DO); 
NOTE (29,5%) 5 NOTE (39,59) 5 NOTE (49,595 
READ (EINGABE); 
ENDE := TRUE 

END; 


FROCEDURE RECHTSLAUFEN; 
VAR 
0: INTEGER3 
BEGIN 
@ :=15 
REPEAT 
DRAWBLOCK {MANNLQALTI,RZ,9,9, XMAX , YMAX, XALT,YALT,6) 5 
DRAWELOCK (MANNILQI,RZ,8,9@, XMAX,YMAX,X,Y,& 953 
XALT :=X 5YALT :=Y5 QALT :=0; 
@ :=8+15 
IF 0=4 THEN @ :=15 
IF @=3 THEN X:=X+7 3 
IF X >25@ THEN 
BEGIN 
EINGABE :="’A’; 
EXIT (RECHTSLAUFEN) 




















END; 
BLUMENANZEIGEN 
UNTIL KEYFRESS OR ENDE 
END; 


FROCEDURE LINGSLAUFENS 
VAR 
0: INTEGER3 
BEGIN 
@ :=45 
REPEAT 
DRAWBLOCK (MANNLOALTI,RZ,2,9, XMAX , YMAX„XALT,YALT,6)5 
DRAWBLOCK (MANNLQI,RZ,2,9, XMAX, YMAX,X,Ys 695 
XALT :=X 5YALT :=Y 5QALT :=05 
@ :=Q+15 
IF 0=7 THEN @ :=45 
IF Q=64 THEN X:=X-75 
IF X <Z@ THEN 
BEGIN 
NOTE (49,48) 35 
GIESWASSER := 185 
EINGABE :="D’; 
EXIT (LINGSLAUFEN) 
END; 
ELUMENANZEIGEN 
UNTIL KEYFRESS OR ENDE 
END; 


PROCEDURE GIESEN;5 
VAR 
0, 1,P: INTEGER3 
BEGIN 
IF GIESWASSER =@ THEN 
BEGIN 
NOTE (2,395 
EINGABE :=’A’; 
EXIT (SIESEN) 
END; 
IF QALT > 3 THEN O@ :=8 
ELSE @ ı=75 
DRAWBLOCK (MANNLBALTI,RZ,@,8, XMAX, YMAX, XALT, YALT,6) 5 
DRAWBLOCK (MANNL®1,RZ,@,@, XMAX , YMAX,X, Vs 695 
GIESWASSER :=GIESWASSER -15 
NOTE (18,3@) 5 
P:= X+185 
IF @ =8 THEN P:=X -17; 
FOR I := 1 TO A DO 
IF <P>CXBLUMELII-1@)) AND (P< (XBLUMELII+1@)) THEN 
BLUMENWASSERLII := BLUMENWASSERLII +125 
XALT :=X 5YALT :=Y 5QALT :=85 
EINGABE :=’D’5 
IF O=8 THEN EINGABE :=’A’;5 
END; 








FROCEDURE BLUMENANZEIGEN; 
BEGIN 
PUNETE35 
z= 1 + RANDOM MOD (A); 
IF (YBLUMELO1>17@) AND 
(BLUMENWASSERL01>8) THEN EXIT (BLUMENANZEIGEN? 5 
IF (BLUMENWASSERLO]I <1) AND 
{YBLUMELO1>398) THEN YBLUMELOJI :=YBLUMELOI-15 
IF (BLUMENWASSERLOI >@) THEN 
BEGIN 
YBLUMELO]I :=YRBLUMELOI+15 
BLUMENWASSERLOI :=BLUMENWASSERLOI -15 

















IF (BLUMENWASSERLO]I > 3@) AND (YBLUMELO] >84) THEN 

BEGIN 
YBLUMELO]I == YBLUMELOI -95 
BLUMENWASSER [0]J :=8; 

END: 

END; (*#ELSE*) kur 
DRAWBLOCK (BLUME,RZ,9,8,XMAX, YMAX , XBLUMELO]J, YBLUMELO]J, 1%) 
END: 


BEGIN (* HAUFTFROGRAMM *)5 


RANDOMIZE53 
WRITE (CHR(12)) 5 WRITE (CHR(@))5; (* SCHIRMLOESCHEN #)5 
WRITELN5 WRITELN (” > > > GAERTNER < < <<’); 
WRITELN5 WRITELN5 WRITELNSWRITELNS 
WRITELN (°’(C) BEI FRANK BRALL FUER HOMECOMPUTER’)3 
WRITELN5 WRITELN5 WRITELNS 
WRITELN (” TASTENBELEGUNG: >A<  LINGS’)5 
WRITELN (” >D< RECHTS’)5 
WRITELN (” >G< GIESEN’)5 
WRITELN5 WRITELN; 
WRITELN (” BITTE WARTEN !’)5 
MANN15 MANNZ25 MANNS5 MANN?35 
WASSERFASS5 FIGUREN4565 PFLANZE3 
REPEAT 
TEXTMODE; 
EINGABE : ”A’5 ENDE :=FALSE3 
ZAEHLER :=68995 
WRITE (CHR (12)) 5 WRITE (CHR(@))5 (* SCHIRMLOESCHEN #)5 
WRITE (’ANZAHL DER BLUMEN (1-6) -> ”)5 
READ (A353 
FOR I := 1 TO 65 DO 
BEGIN 
YBLUMELIJ :=1715 
VERGLEICH [I] :=1715 
END; 
GIESWASSER :=185 
FOR I := 1 TO A DO 
BEGIN 
BLUMENWASSERLI] := 
YBLUMELI] :=@15 
XBLUMELIJ :=3@+(1%*33) 
END; 
X:=190 5 »=35 
XALT:=X 5 YALT:=Y 5 BALT:=45 
RZ :=2#((XMAX+15) DIV 16 )5 
INITTURTLE;3 
FPENCOLOR {NONE 5 
MOVETO (8,035 
PENCOLOR (WHITE)5 MOVETO (279,95 
FOR I := 1 TO 2928 DO 
BLUMENANZEIGEN; 
DRAWBLOCK (MANNLQALTI,RZ,9,@, XMAX , YMAX,XALT,YALT,6) 5 
DRAWBLOCK (FASS,RZ,9,9,XMAX,YMAX,85,2,6)5 
NOTE (398,55)5 
REPEAT 
IF KEYPRESS THEN READ (EINGABE);3 
CASE EINGABE OF 
”A’z LINGSLAUFEN;5 
”"D’z RECHTSLAUFEN; 
”-G’: GIESEN; 
END; (*CASE*) 
BLUMENANZEIGEN5 
UNTIL ENDE 
UNTIL BUTTON (9) 
END. 


























VC20 Prog.Aller Art sehr billig 
& gut inc. Qual-Cass. und Versand 
Beispiel 20 Prog. GV nur DM 30 
oder 15 Prog. GV nur DM 50. 
H.Wolf, Tangstedterstr.5, 2080 
Pinneberg, Info  Tel.04101-27293 





® Über 133 VC-20-Programme @® 
® Info: 99 Pf bei J.Güttel @ 
@ Kölnerstr.99, 5650 Solingen @ 





Achtung VC-64 Besitzer!!! 


Tausche oder Verkaufe VC 64 
Software o Liste 0,80 DM 
Thomas Krebs, Höhenstr. 17 


6360 Friedberg 4 





User-Handbooks + Softwarebooks 
® Direktimport aus Engl. + USA @ 
®. Preiswert und schnell } 
® Liste: Computer anfordern ® 
@®® CS-Books Versand @@® 
©® Marienstr. 4, 469 Hernez @@ 








© VC-20 / CBM 64 o 
Super-Software @ Neue überr. Text- 
verarb. @ Flex.Hardcopy-Routine F. 
Hires-Grafik @ Grafikprgm. @ Äußerst 
umfangr. Programmierhilfen @ Super- 
Spiele @ Die meisten Programme in 
Maschinensprache mit ausführl. 
Anleitung @ Info gegen 1,10DM von 
J.Jeismann, Crispinstraße 4 
4600 Dortmund 50 








CBM Basic Kassetten M.Mind. 40 Pr 
Ogr. Spiele, Assembler, Datei, Biorh 
- NUR 40,- DM Chiffre 8309/1 


® Originale Prog. aus England ! @ 
®@ ua.100% Machine Code Software @ 
© zB.Maze Death Race, Ghost Hunt @ 
® Jede Cassette DM 29,- ® 
®@ Freiumschlag + DM 1,- (Marke)@ 
® A.Quinn "Windmill Software” @ 
@ Pf-1563, 3170 Gifhon ® 


@ Spectrum @ Spectrum @ Spectrum ® 





© Orc @ Orici @ Oric-i @ 
© Originale Prog. aus England ! @® 
® wa.100% Machine Code Software @ 
®@ z.B. Centipede, Hopper & v.mehr @ 
© jede Cassette DM 39, I @ 
®@ Freiumschlag + DM 1,- (Marke) @ 
® A.Quinn, "Windmill Software” ® 
® Pf-1563, 3170 Gifhorn ® 


2X81:35+35 Programme 4K (Bänder) 
20 Prog.16K, 50 Prog.iK. Spectrum: 
20 Prog.i6K unglaublich: Jedes 
Band nur 12,-DM. Bruno Del Medi- 
co,Via Torino,04016 Sabaudia Italy 


Faszination des 
Spiele für Sinclair 
EMM Software präsentiert 
Tempest (48K) noch DM 45,- 
Centipedes (48K) nur DM 39,- 
Startrek (48K) nur DM 22, 
Viele weitere Spiele auch 16 K 
sind erhältlich. Bestellung und/ 
oder Info (ge. Freiumschlag) bei 
Boris Baginski & Peter Stieda 
Sponeckstr. 8, 8000 München 60 
© auch ZX-81 Spiele erhältlich @ 


Spielens 
ZX Spectrum 


@ Preissenkung !!! Programme, Mo- 
dule+Hardware + Drucker (CBM 64 
TI-9914A) zu Superpreisen.Info 
99. DM 1: 'CSV Riegert, Schlosshof- 
str5, 7324 Rechberghausen ®@@®@ 





ZX-81, 16K-Cass: Pac-Man 20DM, Cen- 
tipedes 20DM, Schach 30DM; Ufoan- 
griff + Enterpr. + Masterm. + Schiffe- 
Vers. + Hangman + Mondlandung 20DM, 
alles mit Doku. Bestellung per NN 
(+3,20) od. Vorkasse. Bittmann, W. 
Bergengrünstr.10, 8262 Altötting. 





® VC-20 Progr. Tausch und Kauf @ 
© Kauf ab 1,- Albuscheit & Wolf @ 
® Software-Interessengemeinschaft @ 
© Am Abtsberg:20, 5216 NdK-Rheidt @ 








— 
@®®7X-81 u. CBM 64 Software@®@ 
Superprogramme z.B. Biorhythmus, ET 
ab 3DM, Info gegen Rückporto bei 
Chr. Paas, Nordring 54,4630 Bochum 








Ti-99/A: Superspiele in EX-Basic 
Action, Spannung, Spass. Topgrafik 


z.B: Superfrog(ger): nur 15,-DM 
11 Superarcadespiele: nur 50,-DM 
Die Spitzensoftware!! (ab 5,-DM) 


Info gg. 80 Pf. Briefm., B.Walter 
Pfortengartenweg 57, 6230 Ffm.-80 





©®® Achtung! VC64-User } 
® Neue Superspiele aus USA, uva. @ 
® Pgm mehr zu günstigen Preisen @ 
® Info gegen Freiumschlag (80Pf.) @ 
@W.Bonin,Grasweg11,3257Springeni @ 








Hobbyaufgabe Apple Il 
preiswert meine Disk-Sammlung 
Info gegen Rücksendung an: 
G.Fuß, Nideggener Str. 106, 516 DN 


© verkaufe 





Spache für den ZX Spectrum 
Keine Zusatzhardware erforderlich! 
100% Maschinensprache! Info gegen 
Freiumschlag anfordern bei: 
Thomas Wittwer, Schmissingstr. 6 
4802 Halle (Westf) Tel:05201/10426 
pe 
Wer in Deutschland ist günstiger? 
Die neueste Soft- und Hardware aus 
England (auch Bücher) für ZX81, 
VC20, ZX Spectrum, BBC, cbm64 und 
Dragon. Katalog 11/83 gegen 1,80DM 
in Briefm. T.Wagner, Softwareversand, 
Postfach 112243U, 8900 Augsburg 


© TI-99/4A Software 
gratis bei Jürgen Richter, 








ZX-Spectrum-Supersoftware 


Falcons, Donkey Kong, Gun Fight, 
Starblasters u. vieles mehr. 
Jede Cassette nur 20,-DM bei 


K+H Software 
7012 Fellbach 5, Remserstr. 15 





© TI99/AA @ TI99/4A @ TI99/4A @ 
Endlich ist es da !!! 


Ein ganzes Buch voll Basic mit 
Programmen, Tips und Tricks ! 
Zu bestellen für DM 39,-(V-Sch.) 


bei: SVE-Software: 
Haaler Str. 46, 


Sonja Schwimm 
5102 Würselen 





TI 99 Ext. Basic Software 
Chaotenrennen, pfiffiges Spiel 
für 2-3  Mitspiele, sehr gute 
Grafik. Kas. 29,- DM, Diskette 36,- DM 
Aebi Scher, Br.Grimm-str. 48,6 Ffm. 





TI 99/4A Software-Service 


Superprogramme aus aller Welt 
Programmkassette (Info g. Rückp.) 
99’Service, an der Weide 21 
3160 Lehrte, Tel. 05132/54314 


2X SPECTRUM Actionspiele uva. Info 80Pf 
Dipl.-Ing. G. Verse, 465 Gelsenkirchen, 
Grüner Weg 45 } } 
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le DRAGON 32 sennesenenenn ee DM 998,-- 
= 2. CEM- 64 srournnnnennnneunesnn . DM 832,-- 
%  SEMI-PROFESSIONELLE ANWENDUNGEN & Zx&1 
Semumnnnonnn 3. VE-15H an snusserssnuenuneDM 759, 
” WIN JUROS 
a a GT 4. EUROCON II, voll APPLE Kompatibel 
48 KB, Tastatur mit Zehnerbloc, 
Groß- und Kleinschreibung „DM 1498,-- 


5. APPLE - Kompatibles Motherboard 
unbestückt sunenenuene 
bestückt u. getestet .... 










=» eu ea. = 


6. Laufwerk Shugart SA-390 
7. Gehäuse zu Pos. & 


Es sol hier spezie! | auf die spezifischen Eınsatz- 
und Anwendungsmögiichkeiten dieses - im wahrsten Sinne des Hortes - 
"MICRO"-Computers hingewiesen werden, der ganz gr 02 ın seiner 

tung sein kann '' 

‚Ihnen hier vorliegende "Dankschrift", kann gewiß als Beispiel 
chen TEXTVERARBEITUNG gewertet werden ! 
Gerade ın diesem Anuendungsber eines Computers wird sehr oft die 
Meinung vertreten, daß diese Betriaosart ausschiisdiich eine Domaine 
"spezialer' Ccmouter wäre 

- Bitte,beur 


Controller DOS 3.3 






& 
D 
i 





Printerkarte, Grafikausdruck, 
für STAR, EPSON, C.ITOH, NEC 
13. 128 KB Erweiterung mit DOS 3.3 
CP/M + PASCAL Software 














ilen SIE selbst ! 







r es; ass: Preisvanhsltnis:zu baräel f 14. Monitor ZENITH 12°° grün .uee2un..DM 
Aber vergessen SIE nicht, das Preisvernäitnis zu berücksicntigen 15. Mopiter 0) d2r% oRün entan lan 1 
in der hierbei angewandten Kombination COMPUTER mit "richtiger" 16. Monitorkabel surnueunnnenenne een. DM 
TASTATUR pius (DIN AWDRUCHEI - ist, wie SIE sehen, eine Möglichkeit 





17. Matrixdrucker STAR DP-510 
18. Matrixdrucker C.ITOH 8510 


gegeoen, dies 
gleichermaen 


erfahren zu einem Pre: 
iswert wohl Kaum zu n 


u betreioen, wie es anderswo 
sein dürfte ... 





sereenn «DM 











De ee ze ee ze ee ze ze ze a a a 
De ee ae a a a a a a ze 


Dazu noch die Satisfaktion, das Sanze mit einem - hierfür nicht 19. Matrixdrucker SEIKOSHA euunnunenn- DM 
"zugeschnittenem® Computer = ben so gut zu bewältigen ! 
- Wenn das keine Argumente sind ? - 20. _EUROCON II Komplettset 
ri bestehend aus: 

Sicherlich hat der ZX31 auch "Schwachs welcher Comouter hat => 
die nicht ?); jedoch auch einige beson: MALE zeichnen diesen Pos. 4, 6, 75 8, 14, 16 vuununn zuaDt SPSDy 
[2 - nie der Preiskalk ! 
‚omputer aus - nicht nur in der Preiska on SE Verse 

Wenn SIE mehr noch über anwender-spezifische Eigenschaften des APPLE - Anwender „ 10 StKeruennnnn DM 59,-—- 


ZX81-COMPUTERS erfahren möchten,dann Kommen SIE doch mal vornei. ES 2 a a a a 
* Alle Preis inkl. MWST, auschl. Porto und Verpackung * 
* Versand per Nachnahme oder Vorauskasse auf Konto: * 
* 2 855 987 bei Dresdner Bank Geilenkirchen, BLZ 390 800 05 * 
RERARNER ARE  E 


In diesen Sinne, und in der Hoffnung - vorab schon gedient zu haben - 


eaptiehlt sich 


* * 
* SCHMITZ DATENTECHNIK * 

"JUROS "“ * Alte Poststraße 16, Postfach 1288 * 

COMPUTING * 5130 Geilenkirchen * 

* Tel. 02451/68587 R 

* * 

ELLI UBER TTS ETTTTTTETTETSTETETRERFEETTTTTETGITTEFEETT Boa E SZ 2 202 2 2 2 2 22 2 ze 22 2 2 





@ VC-20/CBM64 Programme ab5 DM ® 
© HGR-Masch. Spi. - Textverarb. usw. @ 
@ Riesenauswahl! Peter Doffine @ 
® Heugärten 9, 4763 Ense 5 ® 


Commodore 64 @ VC 20, Interesse 
an wirklich hervorragender Soft- 
ware? Tausch oder Unkostener- 
statt. (privat).Tel.(0221)432457 


©® TI99/4A @@ Ständig neue Prgr. 
Mit viel Farbe und Sound für we- 
nig Geld @® Liste (Freiumschlag) 
®Finke Faakerstr.15,62 Wiesbaden 





Wir verkaufen VC-64-Software ! 
Info 1DM bei Marc Führer 
Breslauerstr.60, 3250 Hameln 1 





TI-99-Supersoftw. 3D-Labyrinth! 
Invaders usw./ab 1,-/Info 1,- DM 
C.Wurzer, Grüntenweg 14, 85 Nbg.@@ 





Original Spielhöllenprogrm. aus GB 
f. cbm 64, VC 20, ZX-Spectrum uva. 
zB. f. cbm 64: Crazy Kong, Pac Man, 
Froggen, Scrambleje DM 32, auf 
Cass. m. Buchhülle, auf Disk je 47,- 
Liste gegen 2 DM in Brfm. an DB, 
P.0.Box 1308, 4830 Gütersioh 1 


Apple II-Pr. DOS3.3 Dtsch.Be- 
fehlssatz + Fehlermeldg. DISK 39 DM 
DISK-Bearbeitung j. Sektor 39 DM 
V-Scheck, C.P.Reiß, 44 Münster 
Winkelheide 2, Tel.:0251/923271 


VC-20 Software zu Superpreisen!! 
Ab 3 DMI! Gratis Info bei:R.Wolf 
Deipe Stegge 187,4420 Coesfeld 


Professionelle Software für Hand 

-Held-Computer (Epson, HP, Sharp) 

gesucht. M + C Micro-Computer GmbH 
Karlstr.17 d, 4018 Langenfeld 





TI99/4A Spitzenspiele Info gegen 
2,-DM. Oliver Brandt, Grävenweg 19 
4300 Essen 11 


VC-20 wegen Systemwechsels ver- 
kaufe ich meine gesamte Software 
Prg im Wert von ca 5000 DM für 
60DM.Tel.0208/840811 ab 19 Uhr 
C.  Zalesiak,Broicher Str422 OB 


2X Spectrum - ORIC 1 
Software und Literatur 
gegen 1,-DM Rückporto von 
MAHR & MÜLLER Computer 
Westring 32,Riedstadt 5 


@ VC20/CBM64 Programme ab5 DM @ 


@ HGR-Masch.Spi.-Textverarb.usw. @ 
©@ Riesenauswahl! Peter Doffine @ 


Im Lichtenfelde 72, 4790 Paderborn 


Cbm-64 Software! 
Basicerweiterung 39,- 
Biorythmus 10,- 
Adreß 29,- 

Scholz, Kaiserstr. 


Angebots-Auszug 
Fibu 29,- 
Black-Jack 10,- 
Info gegen 80 Pf 
35b, 5 Köln 90 


@ MZ-700 @ MZ-80K @ MZ-80A @ LB 


Riesensoftwareangebot für die 
MZSerie von SHARP. Farbsoftware 
für den MZ-700 (ML-Spiele z.B. 
Pacman, Autorennen etc.) System- 
programme wie Texteditionn Ma- 
schinensprache, Pascal-Compiler 
Bewährtes Softwareangebot für 
MZ-80 K/A Info bei LB-Soft (Jörg 
Lorenz), Richardstr.88, 1Berlin 44 


VC-20 verkaufe ROM Module 
Sargon II - 70DM, Macht-Rallye 


50DM, Alpha-Alarm - 50DM, Lan- 
dung auf Jupiter - 50DM. Tau- 
sche auch Programme. F. Mecke 


Fuhrkamp 8, 2350 Neumünster 2 


VC-20 806GV Spiele 75% Assembler 
100DM, 60 8K Spiele 75% Assembler 
100DM, 60 Modulprg. 100DM. Kein 
Einzelprg.Verkauf. Jörg Grenz 
Starnberger St. 23 Kiel 14. 
Bitte keine Anrufe! Tausche auch 


Suche Bundesliga-Pgm für CBM 64 
Tel 02371/23798 ab 18 h 


2X Spectrum Software für Publi- 
kation gesucht. Angebote an: 
MAHR & MÜLLER Computer 

Westring 32, 6086 Riedstadt 5 


’ 


Laufend neue Basic Kurse. 
Praxisnıh direkt am Computer 
Info: MAHR & MÜLLER Computer 
Westring 32 
6086 Riedstadt 5 


©@®® Staubschutzhauben @@@®@ 
für CBM 2000 -8000 77,-DM 

VC 20-CBM 64 (Tasthauben) 29,-DM 
andere Modelle auf Anfrage 

Lieferung bei Vorauskasse oder 

Scheck. Alle Preise inc. MWST. u. 

Versand. Fa. Schellhammer, Kugystr.7 

8000 München 45, Tel.089-312977 


ZX81-Aktuelll Sie sind Besitzer 
eines ZX81? Dann sind wir der 
Club für Sie! A. Kunz, Winklerstr. 
38, 5600 Wuppertal 2, ZX81-Aktuell 


Suche 
dern in 
Peter 


Kontakt zu TIY9/4A-Anwen- 
München und Umgebung 
Hocke, Heiglhofstr.45 8Mü70 


Spectrum-User-Club sucht neue 
Mitglieder. Info von R. Knorre 
Siegestr. 146 a, 56 Wuppertal 2 


Tausche VC - 64 Software 





Info 1- DM Rainer Rosenow 
Leibnizstr. 394, 4250 Bottrop 
Telefon: 02041/43756, ab 17 Uhr 





@©® 7X-Spectrum-Softwaretausch @@ 
Liste bitte an R. Dannhöfer 
Raderbergerstr. 109, 5000 Köln 51 


©® Dragon-User @@ zwecks Pro- 
© gramm-und Erfahrungsaustausch @ 
@ gesucht.Axel Kattwinkel,3580 ®@ 
@ Fritzlar, Galbächer Warte 1 @@@® 


Tausche Spectrum sw. 0231/485546 


Tausch+Verkauf @TRS-80 @ZX-Spectr. 
+ 81 @ Apple-2 @ Dragon-32 DM7,89/ 
Pgr.. Mengenrabatt @ Info: Gaudisoft 
® Keplerstr.5 @ 5206NK.1 Telefon 
02247/4147 oder 3995 nach 18 Uhr 


Sinclair-Spectrum-Softwaretausch 
Infos:Reinhard Frank, 7922Herbrechtingen 
Brenzstr. 3 (Bitte Freiumschlag). 


Machen Sie Ihren VC-20/64 zum Profisystem! 


z.B. mit Hardware (nur VC-20): 


@ 64 K Ram Modul 


@ 40/80 Zeichen Karte 


248,- 


@ Steckplatzerweiterung 


mit 6 Plätzen und 
Platz für Eprom 


198,- 


® Das Systemhandbuch zum 


Commodore 64 u. VC-20 


74,- 


fordern Sie den ausführlichen Katalog 
gegen 2,-DM Rückporto 


248,-. 


mit Spitzensoftware: 
Textsysteme 


Tabellenkalkulation 


8 

® 

® Buchhaltung 
@ Fakturieren 
} 


von 28,- bis 565,- 
ab 78,- 
ab 60,- 
ab 98,- 


Jede Menge Spiele und vieles mehr 


mit den Programmiersprachen: 


® Forth 
© Exbasic Level II 
@ Makroassembler 


Peter Hemmer 
Verlag & Versand 
Hardware u. Software 
Mühlweg 54, 6730 Neustadt 19 
Tel. (06321) 3 19 92 








Suche Spectrum Joysticks. 
M.Barkowski, Am Kämpchen 53, 
4020 Mettmann 1 








© Suche Gebr. ZX-81 Zubehör @ 
© ®z.B.Printer,HRG, Tastatur usw. @@ 
©® Peter Herzog,Bahnhofstr. 15 @@ 
@® 8240 Berchtesgaden 08652/2691 





© ® Suche gebr. ZX-81 Zubehör @@ 
®® 2Z.B. Printer,Hrg, Tastatur usw. 
@® Peter Herzog, Bahnhofstr. 15 @@ 

8240 Berchtesgaden 08652/2691 


SPECTRUM SPECTRUM SPECTRUM 

Speichererw. A. 48K 89 DM H. Meyer 

Rahserstraße 58, 4060 Viersen 1 
Telefon: 02162/22964 








VC-20 + System 19 + 32K + Modul- 
adapter + Centronics-Interface + 
IEC-Bus + Bücher 800,- DM 
R. Bärwolf, Postfach 100321 
4650 Gelsenkirchen 





Sharp PC-1210 Taschencomputer 
incl.Drucker u. Kassett.Interface 
(Ce-22),neuwertig für 300,- zu 
verkaufen (Neupreis 600,-DM) 





ZX80+8-16K+Slow+Drucker+Soundt 
Hiresgrapnı =48000+Chess+MG oder 
auch einzeln / Wilhelm, Förster- 

str.16,5 Köln 330, VB 720,- 

incl. Gr.Tastatur VB 800,- 


2X 81, 16K, Graphikerweiterung, 
Externe Tastatur, Software 
VB 400,- Markus Studer Halden6 
Ch-5013 Niedergoesgen 
Telefon:064/412687 





Spectrum:32K 99,-Tastatur 150,- 
Centronic-Int:  120,:A/D Wandler 
100,-:Schach 40,-:Katalog SP 3, 
VC-20:Krazy Kong 25,-:Scramble 25 
DM:Froggar 25,-:Lisite VC 20 1, 
VC-64:Krazy Kong 28,-:Scramble 28 
DM:Frogger 28,-:Liste 1,-:Bina Hei 
Starweg 6,2382 Kropp 04624/8728 





TI99/4A Angebot 
TI99/4A+Basic+ Casskabel 
Recorder+Software(3D-LAB, 
Frogger..) VB 750 DM ! 

Tel: 07307/4605 Endrass 
7913 Senden Uhlandstr.28 


VC-20 - und was dann ? 

Fragen Sie bei Mürka an ! 
® Beste Hard + Software ®. 
U} zu Einsteiger-Preisen 0} 
Info + 1Prgm-Listing für 1DM 
Mürka, Rotdornweg 15, 1 Berlin 45 @ 





ORIC 1 48K 598,-DM 
ORIC Farbdrucker 650,-DM 
ZX Spectrum 16K & 48K 
Spectrum Erweiterung 16 auf 48K 
Mahr & Müller Computer Westring 32 
6086 Riedstadt 5 





ZX81-+16K-RAM+Bücher zu verk. 
6 Monate alt DM 250,- 0941-4410 


® Spectrum-Monitoranschluß: 

® Einbauplan DM 10,-(Schein/ 
@ Scheck). Florian Kopitzki, 
@ Ameisenberg 57 c, 7000 Stgt.1 





®®® ORIC-i @@ SPECTRUM 
Oric-1/16K:448,-:0ric-1/64K: 
648,-:Spectrum 16K:398,-:48K: 
© 528,-:Akustikkoppler für ZX81 
© u.Spectrum:DM 198,-: Joystick- 
@ u.Videointerface, Software für 
@  Oric-1,Spectrum,‚CBM-64,VC-20 
® Liste anfordern bei R.Höhne 
® Postf.:210325, 1000 Berlin 21 





@®©Soft u. Hardware für VC-20 
@8K Speichererw. m. Sch. 90, 
@16k Speichererw. m. Sch. 160, 
@Modulbox fertig mont. 

@Quick Save Steckm. 
@Maschinensprachm. Steck. 
@Programmierhilfem. 

© Graphicmodul 

@üÜber 100 Prg. Info gegen 

o 1,30i.Briefm. von 

@N. Flesch, Scheideweg 63 G 

o 4650 Gelsenkirchen-Buer 
©® Soft u. Hardware für VC-20 @ 


VC-20+16K-+2 Mon.Garantie+2 Bücher 
+Programme(Neuw.950DM) für 599DM 
©® Te1.05432/3392 @@ 


2X81/16K+Sup.-Mov.-Keyboard+Q-Sa 
ve+Flugsimul.-+3D-Defender+VU-Fi 
le+Bücher VB 480DM! J.lckinger 
Olgastr. 3, 7000 Heilbronn 


Verkaufe ZX81 16K Gr. Tastatur- 

Memop. HRG 64K ZX81-Drucker. 

Drucker Gp-100A mit Interface 

Sowie viel Software und alle 

Bücher für ZX81 Preis:VB 
Telefon: 07452-4807 











ZX81 (def.) 40DM,16KRAM-60DM 
gr. Tastatur 60DM 
P.Hangen,Tel.:0611/345387 





VC-20,64K-Ram,Modulbox, Floppi 
und Software zu verk.D.Schulz 
Funkenstr.42,5020 Frechen 
Tel.:(02234/57848) 





ZX-Spectrum 16K,wie neu in Origi- 
nal Verpackung, mit deutsch. An- 
leitung + 5 Super-Spielecassetten 
für 390,-DM abzugeben 
Telefon:04106/60922 ab 19 Uhr 


VC-64 + Datassette 2CN + Wert- 
volle Dienstprogr. (Monitor. Dis- 
Assembler ua) + Diverse Spiele 
(z.B. AMC,Motor-Mania, Grandmast.) 
für VB 1200DM, Tel.:02101/602208 


TI 59 + Magnetkarten 200 DM 
F.Schlösser, Hüttenweg 3, 53 Bonn 


ZX81, 16KTastatur, Soft, 3 Mon. Ga- 
rant. 350DM (0241-26788 ab 18 Uhr) 


TI994A + Rec.Kab. -Wie neu 
VB 450DM H. Koch‚Am Brambusch 9 





Telefon:02592/62500 TI99/4A+viel Zubehör 05251/62422 3000 Hannover 51, Tel: 0511/652498 











Auftrag für Gelegenheitsanzeigen in Homecomputer 


Name und Adresse 





An Homecomputer 
Westring 59c 
Postfach 629 
3440 Eschwege 








Unterschrift Ich zahle sofort nach Rechnungserhalt. 


Unter der Rubrik „Kleinanzei- 
gen“ veröffentlichen wir Ge- 
legenheitsanzeigen für Ver- 
kaufsangebote, Kauf- und 
Tauschgesuche, Kontaktauf- 
nahme bzw. Erfahrungsaus- 
tausch usw. 


Ich wünsche folgenden Text zu veröffentlichen: 











Preise für „Kleinanzeigen“: 
Private Gelegenheitsanzeige 
je Druckzeile 5,— DM inkl. 
MwSt. Chiffregebühr je Anzei- 
ge 10,- DM. 


Gewerbliche Gelegenheitsan- 
zeige je Druckzeile 7,—DM inkl. | 
MwSt. (dürfen nicht unter Chif- 

fre erscheinen). | 
































1 ee| 
Zutreffendes ankreuzen 
Tausch DD Versch. 
Chiffre 














suche 
biete an [] Software 



































biete an Kontakte 
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“FOR THE FOR THE 
COMMODORE 64 COMMODORE 64 








SPRITE 
MAKER 
64 








SUPERFONT 
4.0 









CASSETTE 

Our new character Des In Dr save beautiful 

generator lets you re-define multicoloured sprites, and 

and shape your own character use them In your own 

sets. Full editing rammes! Full editing 
lacllities and 


facilities and 
documentation. documentation. 


Kscape from ANLUE 


FOR ATARI 400/800 
2] COMPUTERS 


Erz Nordstraße 22 * 3443 Herleshausen * Tel. 05654 -6182 


Bitte benutzen Sie Bestellkarte im Innenteil des Heftes! 








BUNNYA 
El.a. N 


SinclairZX Spectrum 


am 


ROMIK SOFTWARE N 


ats 


WICOSOFT* Nordstraße 22 * 3443 Herleshausen * Tel. 05654 -6182 


Bitte benutzen Sie Bestellkarte im Innenteil des Heftes! 








ROMIK SOFTWARE 9} 


Mufisoung 





ROMIK SOFTWARE X 


NOONS OF ‚DE UP TER 





TA REAL ACTION SHOT OF THE GAME“ 


WILL YOU BE THE 
SUPREME WORLD 
CHAMPION? 


Händleranfragen erwünscht. ® 


WILL YOU BE THE 





ROMIK SOFTWARE 


MRIELRUR? AOER 






"A REAL ACTION SHOT OF THE GAME” 


SUPREME WORLD 
CHAMPION? 





"A REAL ACTION SHOT OF THE GAME 


WILL YOU BE THE SUPREME 
WORLD CHAMPION? 


ROMIK SOETWARE 


SHARK A ATTaCh 


x 


+ 4 


RRERLACHION SHOT OF THEGAME 
WILL YOU BE THE 
SUPREME WORLD 

CHAMPION? 












ROMIK SOFTWARE Bi 
SPACE ATTACK 


s 
Eu 






' 
A) ER 
' 


“A REAL ACTION SHOT OF THE GAME" 


WILL YOU BE THE 
SUPREME WORLD 
CHAMPION? 


ROMIK ‚SOETWARE r. 


‚SER INDASION 


FOR UNEXPANDED VIC 


Softwareautoren gesucht - Info anfordern! 











ROMIK SOFTWARE 


zeusewr 


. SUPER NINE 


FOR 1K 2X 81 


7. SKETCH 
8. COSMIC RAIDER 
9. FOUR THOUGHT 






WILL YOU BE THE 
SUPREME WORLD 
Bi PION? 








4 N 
WICOSOFT ® Christian Widuch @ Nordstr. 22 @ 3443 Herleshausen 


